diff options
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/frontend.dcl | 1 | ||||
| -rw-r--r-- | frontend/frontend.icl | 2 | ||||
| -rw-r--r-- | frontend/postparse.icl | 4 |
3 files changed, 3 insertions, 4 deletions
diff --git a/frontend/frontend.dcl b/frontend/frontend.dcl index 47db4e2..7696b05 100644 --- a/frontend/frontend.dcl +++ b/frontend/frontend.dcl @@ -11,6 +11,7 @@ import checksupport, transform, overloading , fe_varHeap :: !.VarHeap , fe_dclIclConversions ::!Optional {# Index} , fe_iclDclConversions ::!Optional {# Index} + , fe_globalFunctions :: !IndexRange , fe_arrayInstances :: !IndexRange } diff --git a/frontend/frontend.icl b/frontend/frontend.icl index d9d17d8..199359f 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -10,6 +10,7 @@ import RWSDebug , fe_varHeap :: !.VarHeap , fe_dclIclConversions ::!Optional {# Index} , fe_iclDclConversions ::!Optional {# Index} + , fe_globalFunctions :: !IndexRange , fe_arrayInstances :: !IndexRange } @@ -78,6 +79,7 @@ frontEndInterface mod_ident search_paths predef_symbols hash_table files error i , fe_varHeap = var_heap , fe_dclIclConversions = optional_dcl_icl_conversions , fe_iclDclConversions = build_optional_icl_dcl_conversions (size fun_defs) optional_dcl_icl_conversions + , fe_globalFunctions = global_fun_range , fe_arrayInstances = array_instances } ) diff --git a/frontend/postparse.icl b/frontend/postparse.icl index 2578f92..5217c0c 100644 --- a/frontend/postparse.icl +++ b/frontend/postparse.icl @@ -129,10 +129,8 @@ where collectFunctions (PE_Bound bound_expr) ca # (bound_expr, ca) = collectFunctions bound_expr ca = (PE_Bound bound_expr, ca) -// MW was: collectFunctions (PE_Lambda lam_ident args res) ca collectFunctions (PE_Lambda lam_ident args res pos) ca # ((args,res), ca) = collectFunctions (args,res) ca -// MW was: # (range, ca) = addFunctionsRange [transformLambda lam_ident args res] ca # (range, ca) = addFunctionsRange [transformLambda lam_ident args res pos] ca = (PE_Let cIsStrict (CollectedLocalDefs { loc_functions = range, loc_nodes = [] }) (PE_Ident lam_ident), ca) @@ -173,11 +171,9 @@ where = collectFunctions (transformSequence sequence ca_predefs) ca collectFunctions (PE_ArrayDenot exprs) ca=:{ca_predefs} = collectFunctions (transformArrayDenot exprs ca_predefs) ca -// MV .. collectFunctions (PE_Dynamic exprs opt_dyn_type) ca # (exprs, ca) = collectFunctions exprs ca = (PE_Dynamic exprs opt_dyn_type, ca) -// .. MV collectFunctions expr ca = (expr, ca) |