diff options
| author | diederik | 2002-12-02 12:11:18 +0000 |
|---|---|---|
| committer | diederik | 2002-12-02 12:11:18 +0000 |
| commit | 1db040095994c3b15a09cec2a84e2ebc62d647fe (patch) | |
| tree | 5b262974cc24f9ffbcbfe70767fb3787425500f3 /frontend/frontend.icl | |
| parent | remove // before some function type definitions (diff) | |
improve speed when not fusing
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1296 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/frontend.icl')
| -rw-r--r-- | frontend/frontend.icl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 9982011..bd7d111 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -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 _ - # (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) + -> 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 |