diff options
| author | sjakie | 2001-09-21 08:08:59 +0000 |
|---|---|---|
| committer | sjakie | 2001-09-21 08:08:59 +0000 |
| commit | 68a9935f0203b73b5edb13a9e3996b8b06d05f48 (patch) | |
| tree | 779071559cd7c17f66dcd4b02949f9805615f34f /frontend/checksupport.icl | |
| parent | Added module owners for convertDynamics, type_io and type_io_common (diff) | |
Bug fix: caching combined with omitted type and class definitions
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@800 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checksupport.icl')
| -rw-r--r-- | frontend/checksupport.icl | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl index e1a22c9..3320f1a 100644 --- a/frontend/checksupport.icl +++ b/frontend/checksupport.icl @@ -45,12 +45,12 @@ cConstructorDefs :== 1 cSelectorDefs :== 2 cClassDefs :== 3 cMemberDefs :== 4 -cGenericDefs :== 5 // AA +cGenericDefs :== 5 cInstanceDefs :== 6 cFunctionDefs :== 7 cMacroDefs :== 8 -cConversionTableSize :== 9 // AA +cConversionTableSize :== 9 instance toInt STE_Kind where @@ -67,9 +67,7 @@ where :: CommonDefs = { com_type_defs :: !.{# CheckedTypeDef} - - , com_unexpanded_type_defs :: !{# CheckedTypeDef} - +// , com_unexpanded_type_defs :: !{# CheckedTypeDef} , com_cons_defs :: !.{# ConsDef} , com_selector_defs :: !.{# SelectorDef} , com_class_defs :: !.{# ClassDef} @@ -98,16 +96,21 @@ where , di_belonging :: !NumberSet } +:: CopiedDefinitions = + { copied_type_defs :: [Index] + , copied_class_defs :: [Index] + } + :: IclModule = - { icl_name :: !Ident - , icl_functions :: !.{# FunDef } - , icl_instances :: !IndexRange - , icl_specials :: !IndexRange - , icl_common :: !.CommonDefs -// , icl_declared :: !Declarations - , icl_import :: !{!Declaration} + { icl_name :: !Ident + , icl_functions :: !.{# FunDef } + , icl_instances :: !IndexRange + , icl_specials :: !IndexRange + , icl_common :: !.CommonDefs + , icl_import :: !{!Declaration} , icl_imported_objects :: ![ImportedObject] , icl_used_module_numbers :: !NumberSet + , icl_copied_from_dcl :: !CopiedDefinitions } :: DclModule = |