diff options
| author | ronny | 2001-06-25 16:16:00 +0000 |
|---|---|---|
| committer | ronny | 2001-06-25 16:16:00 +0000 |
| commit | c63878b450689f29ae03a04a9767a5d85893ead6 (patch) | |
| tree | c60f752174d696652475503d0b9480c74983c4a3 /frontend | |
| parent | also add pattern variables in Cases to cp_local_vars (diff) | |
generate .depend for current dcl module
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@504 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/check.icl | 4 | ||||
| -rw-r--r-- | frontend/checksupport.dcl | 4 | ||||
| -rw-r--r-- | frontend/checksupport.icl | 4 |
3 files changed, 10 insertions, 2 deletions
diff --git a/frontend/check.icl b/frontend/check.icl index c1502e3..0a36f56 100644 --- a/frontend/check.icl +++ b/frontend/check.icl @@ -2169,9 +2169,13 @@ initialDclModule ({mod_name, mod_defs=mod_defs=:{def_funtypes,def_macros}, mod_t , dcls_local_for_import = {local_declaration_for_import decl module_n \\ decl<-all_defs} } , dcl_conversions = No +/* RWS ... , dcl_is_system = case mod_type of MK_System -> True _ -> False +*/ + , dcl_module_kind = mod_type +// ... RWS , dcl_imported_module_numbers = EndNumbers , dcl_is_cashed = False } diff --git a/frontend/checksupport.dcl b/frontend/checksupport.dcl index 322819c..ff4d68f 100644 --- a/frontend/checksupport.dcl +++ b/frontend/checksupport.dcl @@ -105,7 +105,9 @@ cConversionTableSize :== 9 // AA , dcl_sizes :: !{# Int} , dcl_declared :: !Declarations , dcl_conversions :: !Optional ConversionTable - , dcl_is_system :: !Bool +// RWS ... , dcl_is_system :: !Bool + , dcl_module_kind :: !ModuleKind +// ... RWS , dcl_imported_module_numbers :: !NumberSet , dcl_is_cashed :: !Bool } diff --git a/frontend/checksupport.icl b/frontend/checksupport.icl index 0222299..bdb6c16 100644 --- a/frontend/checksupport.icl +++ b/frontend/checksupport.icl @@ -118,7 +118,9 @@ where , dcl_sizes :: !{# Int} , dcl_declared :: !Declarations , dcl_conversions :: !Optional ConversionTable - , dcl_is_system :: !Bool +// RWS ... , dcl_is_system :: !Bool + , dcl_module_kind :: !ModuleKind +// ... RWS , dcl_imported_module_numbers :: !NumberSet , dcl_is_cashed :: !Bool } |