From 123266b62db69dc2bdcc31571e33ea67ee5124c6 Mon Sep 17 00:00:00 2001 From: johnvg Date: Fri, 18 Nov 2005 12:34:32 +0000 Subject: check kinds of local functions, move function indices in IclModule to separate record git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1563 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d --- backend/backendconvert.icl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'backend') diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index 163fb4c..d77581e 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -383,8 +383,9 @@ backEndConvertModules p s main_dcl_module_n var_heap attr_var_heap be backEndConvertModulesH :: PredefinedSymbols FrontEndSyntaxTree !Int *BackEndState -> *BackEndState backEndConvertModulesH predefs {fe_icl = - fe_icl =: {icl_name, icl_functions, icl_common,icl_global_functions, - icl_type_funs, icl_imported_objects,icl_foreign_exports,icl_used_module_numbers, icl_modification_time}, + fe_icl =: { icl_name, icl_functions, icl_common, + icl_function_indices = {ifi_type_function_indices,ifi_global_function_indices}, + icl_imported_objects, icl_foreign_exports, icl_used_module_numbers, icl_modification_time}, fe_components, fe_dcls, fe_arrayInstances} main_dcl_module_n backEnd // sanity check ... @@ -445,7 +446,7 @@ backEndConvertModulesH predefs {fe_icl = = appBackEnd (BEDeclareIclModule icl_name.id_name icl_modification_time (size icl_functions) (size icl_common.com_type_defs) (size icl_common.com_cons_defs) (size icl_common.com_selector_defs)) (backEnd -*-> "BEDeclareIclModule") #! backEnd = declareFunctionSymbols icl_functions functionIndices - (icl_type_funs ++ icl_global_functions) (backEnd -*-> "declareFunctionSymbols") + (ifi_type_function_indices ++ ifi_global_function_indices) (backEnd -*-> "declareFunctionSymbols") #! backEnd = declare main_dcl_module_n icl_common (backEnd -*-> "declare (main_dcl_module_n)") #! backEnd @@ -482,7 +483,7 @@ backEndConvertModulesH predefs {fe_icl = = [] // otherwise = flatten [[r.ir_from .. r.ir_to-1] - \\ r <- [icl_type_funs!!1]] + \\ r <- [ifi_type_function_indices!!1]] # backEnd = bindSpecialIdents predefs icl_used_module_numbers backEnd #! backEnd = removeExpandedTypesFromDclModules fe_dcls icl_used_module_numbers backEnd = (backEnd -*-> "backend done") -- cgit v1.2.3