diff options
| author | johnvg | 2001-11-30 15:07:00 +0000 |
|---|---|---|
| committer | johnvg | 2001-11-30 15:07:00 +0000 |
| commit | d0e49e5993aa362f2dab239dbfda4fbe77c6500f (patch) | |
| tree | 9fc9e8b33d4bad2c6db49320655f5e01345913fa /backend | |
| parent | store predefined identifiers in CAF (diff) | |
store predefined identifiers in CAF
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@912 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 2 | ||||
| -rw-r--r-- | backend/backendinterface.icl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index b80b0e6..98d92b5 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -462,7 +462,7 @@ backEndConvertModulesH predefs {fe_icl = #! backEnd = adjustStrictListFunctions fe_arrayInstances.ali_list_first_instance_indices fe_arrayInstances.ali_tail_strict_list_first_instance_indices predefs fe_dcls icl_used_module_numbers main_dcl_module_n backEnd; #! (rules, backEnd) - = convertRules [(index, icl_functions.[index]) \\ (_, index) <- functionIndices] main_dcl_module_n predefs.[PD_DummyForStrictAliasFun].pds_ident (backEnd -*-> "convertRules") + = convertRules [(index, icl_functions.[index]) \\ (_, index) <- functionIndices] main_dcl_module_n predefined_idents.[PD_DummyForStrictAliasFun] (backEnd -*-> "convertRules") #! backEnd = appBackEnd (BEDefineRules rules) (backEnd -*-> "BEDefineRules") #! backEnd diff --git a/backend/backendinterface.icl b/backend/backendinterface.icl index da493d2..afb53af 100644 --- a/backend/backendinterface.icl +++ b/backend/backendinterface.icl @@ -47,7 +47,7 @@ backEndInterface outputFileName commandLineArgs listTypes typesPath predef_symbo | not compatible = (False, var_heap, attrHeap, errorFile, files) # varHeap - = backEndPreprocess predef_symbols.[PD_DummyForStrictAliasFun].pds_ident functionIndices fe_icl var_heap + = backEndPreprocess predefined_idents.[PD_DummyForStrictAliasFun] functionIndices fe_icl var_heap with functionIndices = flatten [[member \\ member <- group.group_members] \\ group <-: fe_components] |