aboutsummaryrefslogtreecommitdiff
path: root/frontend/checksupport.icl
diff options
context:
space:
mode:
authoralimarin2001-03-13 15:36:49 +0000
committeralimarin2001-03-13 15:36:49 +0000
commitc3a2cdaad45d3e1536d3b98d89036e549f159530 (patch)
tree03e6e689e81bca56ad245ff00fc9c17a7bef80b5 /frontend/checksupport.icl
parentadded 2.0 syntax to type_io.icl (diff)
Generics are added, but are disabled.
Tested with compiling Object IO and butstrapping. git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@329 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checksupport.icl')
-rw-r--r--frontend/checksupport.icl15
1 files changed, 10 insertions, 5 deletions
diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl
index d2b1e99..401a6c0 100644
--- a/frontend/checksupport.icl
+++ b/frontend/checksupport.icl
@@ -22,6 +22,7 @@ cIsADclModule :== True
cNeedStdArray :== 1
cNeedStdEnum :== 2
cNeedStdDynamics:== 4
+cNeedStdGeneric :== 8 // AA
:: Heaps =
{ hp_var_heap ::!.VarHeap
@@ -42,11 +43,12 @@ cConstructorDefs :== 1
cSelectorDefs :== 2
cClassDefs :== 3
cMemberDefs :== 4
-cInstanceDefs :== 5
-cFunctionDefs :== 6
-cMacroDefs :== 7
+cGenericDefs :== 5 // AA
+cInstanceDefs :== 6
+cFunctionDefs :== 7
+cMacroDefs :== 8
-cConversionTableSize :== 8
+cConversionTableSize :== 9 // AA
instance toInt STE_Kind
where
@@ -54,8 +56,9 @@ where
toInt STE_Constructor = cConstructorDefs
toInt (STE_Field _) = cSelectorDefs
toInt STE_Class = cClassDefs
+ toInt STE_Generic = cGenericDefs
toInt STE_Member = cMemberDefs
- toInt (STE_Instance _) = cInstanceDefs
+ toInt (STE_Instance _) = cInstanceDefs
toInt STE_DclFunction = cFunctionDefs
toInt (STE_FunctionOrMacro _) = cMacroDefs
toInt _ = NoIndex
@@ -67,6 +70,7 @@ where
, com_class_defs :: !.{# ClassDef}
, com_member_defs :: !.{# MemberDef}
, com_instance_defs :: !.{# ClassInstance}
+ , com_generic_defs :: !.{# GenericDef} // AA
}
:: Declarations = {
@@ -206,6 +210,7 @@ where
, ef_cons_defs :: !.{# ConsDef}
, ef_member_defs :: !.{# MemberDef}
, ef_class_defs :: !.{# ClassDef}
+ , ef_generic_defs :: !.{# GenericDef} // AA
, ef_modules :: !.{# DclModule}
, ef_is_macro_fun :: !Bool
}