diff options
| author | johnvg | 2005-11-18 12:34:32 +0000 |
|---|---|---|
| committer | johnvg | 2005-11-18 12:34:32 +0000 |
| commit | 123266b62db69dc2bdcc31571e33ea67ee5124c6 (patch) | |
| tree | 40f6c23852435b1968b7c20f9224ddcd3d8836e9 /frontend/checksupport.dcl | |
| parent | make the Buffer unique (diff) | |
check kinds of local functions,
move function indices in IclModule to separate record
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1563 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checksupport.dcl')
| -rw-r--r-- | frontend/checksupport.dcl | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/frontend/checksupport.dcl b/frontend/checksupport.dcl index 6bcb119..d93e353 100644 --- a/frontend/checksupport.dcl +++ b/frontend/checksupport.dcl @@ -13,7 +13,7 @@ cRankTwoScope :== 2 cNeedStdArray :== 1 cNeedStdEnum :== 2 cNeedStdDynamic :== 4 -cNeedStdGeneric :== 8 // AA +cNeedStdGeneric :== 8 cNeedStdStrictLists :== 16 :: VarHeap :== Heap VarInfo @@ -57,8 +57,8 @@ cConversionTableSize :== 10 , com_class_defs :: !.{# ClassDef} , com_member_defs :: !.{# MemberDef} , com_instance_defs :: !.{# ClassInstance} - , com_generic_defs :: !.{# GenericDef} // AA - , com_gencase_defs :: !.{# GenericCaseDef} // AA + , com_generic_defs :: !.{# GenericDef} + , com_gencase_defs :: !.{# GenericCaseDef} } :: Declarations = { @@ -89,14 +89,19 @@ cConversionTableSize :== 10 :: FunDefIndex:==Int +:: IclFunctionIndices = + { ifi_global_function_indices :: ![IndexRange] + , ifi_local_function_indices :: !IndexRange + , ifi_instance_indices :: ![IndexRange] + , ifi_specials_indices :: !IndexRange + , ifi_gencase_indices :: ![IndexRange] + , ifi_type_function_indices :: ![IndexRange] + } + :: IclModule = { icl_name :: !Ident , icl_functions :: !.{# FunDef } - , icl_global_functions :: ![IndexRange] - , icl_instances :: ![IndexRange] - , icl_specials :: !IndexRange - , icl_gencases :: ![IndexRange] - , icl_type_funs :: ![IndexRange] + , icl_function_indices :: !IclFunctionIndices , icl_common :: !.CommonDefs , icl_import :: !{!Declaration} , icl_imported_objects :: ![ImportedObject] |