diff options
| author | johnvg | 2011-03-21 10:26:33 +0000 |
|---|---|---|
| committer | johnvg | 2011-03-21 10:26:33 +0000 |
| commit | cf5d6fc67c48f64b20abb57b6f2f7f46f205e771 (patch) | |
| tree | a81a85526d16e96519294b7be86ce7b3643ceadd /frontend/syntax.dcl | |
| parent | update files for the Mac after removing some unused fields and values on Windows (diff) | |
remove unused field td_context from type TypeDef
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1884 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/syntax.dcl')
| -rw-r--r-- | frontend/syntax.dcl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl index 22aedd1..295e60b 100644 --- a/frontend/syntax.dcl +++ b/frontend/syntax.dcl @@ -411,7 +411,7 @@ cNameLocationDependent :== True | TypeConsVar TypeVar :: GenericCaseDef = - { gc_ident :: !Ident // name in IC_GenricCase namespace + { gc_ident :: !Ident // name in IC_GenricCase namespace , gc_gident :: !Ident // name in IC_Generic namespace , gc_generic :: !GlobalIndex // index of the generic , gc_arity :: !Int // arity of the function @@ -524,7 +524,6 @@ NoGlobalIndex :== {gi_module=NoIndex,gi_index=NoIndex} , td_arity :: !Int , td_args :: ![ATypeVar] , td_attrs :: ![AttributeVar] - , td_context :: ![TypeContext] , td_rhs :: !type_rhs , td_attribute :: !TypeAttribute , td_pos :: !Position @@ -1502,8 +1501,8 @@ ParsedInstanceToClassInstance pi members :== it_context = pi.pi_context }, ins_members = members, ins_specials = pi.pi_specials, ins_pos = pi.pi_pos} -MakeTypeDef name lhs rhs attr contexts pos :== - { td_ident = name, td_index = -1, td_arity = length lhs, td_args = lhs, td_attrs = [], td_attribute = attr, td_context = contexts, +MakeTypeDef name lhs rhs attr pos :== + { td_ident = name, td_index = -1, td_arity = length lhs, td_args = lhs, td_attrs = [], td_attribute = attr, td_pos = pos, td_rhs = rhs, td_used_types = [], td_fun_index = NoIndex } |