From c3a2cdaad45d3e1536d3b98d89036e549f159530 Mon Sep 17 00:00:00 2001
From: alimarin
Date: Tue, 13 Mar 2001 15:36:49 +0000
Subject: 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
---
frontend/checksupport.icl | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
(limited to 'frontend/checksupport.icl')
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
}
--
cgit v1.2.3