From 86feb5e423baf83b69561ecdd4904b6816df2f06 Mon Sep 17 00:00:00 2001 From: ronny Date: Thu, 19 Sep 2002 12:44:20 +0000 Subject: major rewrite dynamics git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1197 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- backend/backendconvert.icl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'backend') 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} -- cgit v1.2.3