diff options
| author | diederik | 2002-03-04 08:58:48 +0000 |
|---|---|---|
| committer | diederik | 2002-03-04 08:58:48 +0000 |
| commit | d15cdc55d84ba362a436beab15b75b65973ce48e (patch) | |
| tree | 7be89c635e5a7936f911788f000e099488a32e69 /frontend/frontend.icl | |
| parent | unbox record update function arguments (diff) | |
Export proper new type of transformGroups
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1042 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/frontend.icl')
| -rw-r--r-- | frontend/frontend.icl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 5a055d7..f78006f 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -213,7 +213,7 @@ frontEndInterface options mod_ident search_paths cached_dcl_modules functions_an // # (components, fun_defs, error) = showComponents2 components 0 fun_defs acc_args error - (components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap) + (components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap, acc_args) = transformGroups cleanup_info main_dcl_module_n stdStrictLists_module_n (components -*-> "Transform") fun_defs acc_args common_defs imported_funs dcl_types used_conses_in_dynamics type_def_infos var_heap type_heaps expression_heap options.feo_fusion | options.feo_up_to_phase == FrontEndPhaseTransformGroups @@ -324,11 +324,20 @@ where = (fun_defs, file <<< '\n') show_component [fun:funs] fun_defs acc_args file # (fd, fun_defs) = fun_defs![fun] + | fun >= size acc_args + # file = file <<< fd.fun_symb <<< '.' <<< fun <<< " ???" + = show_component funs fun_defs acc_args file # file = file <<< fd.fun_symb <<< '.' <<< fun <<< " (" + # file = show_producer_status acc_args.[fun].cc_producer file # file = show_accumulating_arguments acc_args.[fun].cc_args file # file = show_linear_arguments acc_args.[fun].cc_linear_bits file = show_component funs fun_defs acc_args (file <<< ") ") + show_producer_status pc file + | pc == True + = file <<< "+:" + = file <<< "-:" + show_accumulating_arguments [ cc : ccs] file | cc == cPassive = show_accumulating_arguments ccs (file <<< 'p') |