diff options
| author | ronny | 2002-09-19 12:44:20 +0000 |
|---|---|---|
| committer | ronny | 2002-09-19 12:44:20 +0000 |
| commit | 86feb5e423baf83b69561ecdd4904b6816df2f06 (patch) | |
| tree | 16a6a063b7aeade991b96a099328d0b710050a16 /backend | |
| parent | Add SK_GeneratedCaseFunction for dynamic cases fix (diff) | |
major rewrite dynamics
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1197 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index bc52e39..5a44492 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -916,7 +916,7 @@ convertSelector moduleIndex selectorDefs is_strict {fs_index} declareDynamicTemp :: PredefinedSymbols -> BackEnder declareDynamicTemp predefs - = appBackEnd (BEDeclareDynamicTypeSymbol predefs.[PD_StdDynamic].pds_def predefs.[PD_DynamicTemp].pds_def) + = appBackEnd (BEDeclareDynamicTypeSymbol predefs.[PD_StdDynamic].pds_def predefs.[PD_Dyn_DynamicTemp].pds_def) predefineSymbols :: DclModule PredefinedSymbols -> BackEnder predefineSymbols {dcl_common} predefs @@ -1693,7 +1693,8 @@ convertRootExpr aliasDummyId (Case kees=:{case_expr, case_guards}) main_dcl_modu Yes ident -> DefaultCaseFail ident _ - -> abort "backendconvert:defaultCase, case without id" + -> DefaultCaseFail {id_name="kees_be", id_info=nilPtr} +// -> abort "backendconvert:defaultCase, case without id" // otherwise = DefaultCaseNone convertRootExpr _ (FailExpr fail_ident) _ @@ -1826,6 +1827,8 @@ where = beFunctionSymbol glob_object glob_module convertSymbol {symb_kind=SK_LocalMacroFunction glob_object} = beFunctionSymbol glob_object main_dcl_module_n + convertSymbol {symb_kind=SK_GeneratedCaseFunction _ index} + = beFunctionSymbol index main_dcl_module_n convertSymbol {symb_kind=SK_GeneratedFunction _ index} = beFunctionSymbol index main_dcl_module_n convertSymbol {symb_kind=SK_GeneratedCaseFunction _ index} |