Commit b214320a authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

improve speed when not fusing

parent 1c4383c5
......@@ -211,9 +211,12 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules functions_an
exported_functions
main_dcl_module_n def_min def_max predef_symbols var_heap expression_heap error_admin
_
-> case options.feo_fusion of
True
# (fun_defs,predef_symbols,var_heap,expression_heap,error_admin)
= stripStrictLets fun_defs predef_symbols var_heap expression_heap error_admin
-> (components, fun_defs, predef_symbols, var_heap, expression_heap, error_admin)
_ -> (components, fun_defs, predef_symbols, var_heap, expression_heap, error_admin)
# error = error_admin.ea_file
| not error_admin.ea_ok
......
......@@ -3192,6 +3192,10 @@ where
# ti = foldSt (transform_function common_defs imported_funs) group_members ti
// partitionate group: need to know added functions for this...
# (after,ti) = ti!ti_next_fun_nr
| not (compile_with_fusion || after > before)
= (inc group_nr,[{group_members=group_members}:acc_groups],ti)
# (new_groups,ti) = partition_group group_nr (group_members++[before..after-1]) ti
// reanalyse consumers
# (cleanup,ti_fun_defs,ti_var_heap,ti_symbol_heap,ti_fun_heap,ti_cons_args,same)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment