diff options
| author | johnvg | 2011-02-23 11:55:02 +0000 |
|---|---|---|
| committer | johnvg | 2011-02-23 11:55:02 +0000 |
| commit | fd9e91bf32bfad5caf75993e973b828c2b177b56 (patch) | |
| tree | 8b05c56ad0a898bf75dceff6535826f6a6e5cbc1 /frontend/trans.icl | |
| parent | remove unused field wtis_collected_conses of WriteTypeInfoState (diff) | |
remove ImportedConstructors result from function convertDynamicPatternsIntoUnifyAppls,
because it is always []
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1847 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/trans.icl')
| -rw-r--r-- | frontend/trans.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/frontend/trans.icl b/frontend/trans.icl index e6ba196..42ca8aa 100644 --- a/frontend/trans.icl +++ b/frontend/trans.icl @@ -3571,10 +3571,10 @@ add_let_binds free_vars rhss original_binds //@ transformGroups transformGroups :: !CleanupInfo !Int !Int !Int !Int !*{!Group} !*{#FunDef} !*{!.ConsClasses} !{# CommonDefs} !{# {# FunType} } - !*ImportedTypes !ImportedConstructors !*TypeDefInfos !*VarHeap !*TypeHeaps !*ExpressionHeap !Bool !*File !*PredefinedSymbols + !*ImportedTypes !*TypeDefInfos !*VarHeap !*TypeHeaps !*ExpressionHeap !Bool !*File !*PredefinedSymbols -> (!*{!Group}, !*{#FunDef}, !*ImportedTypes, !ImportedConstructors, !*VarHeap, !*TypeHeaps, !*ExpressionHeap, !*{!ConsClasses}, !*File, !*PredefinedSymbols) transformGroups cleanup_info main_dcl_module_n ro_StdStrictLists_module_n def_min def_max groups fun_defs cons_args common_defs imported_funs - imported_types collected_imports type_def_infos var_heap type_heaps symbol_heap compile_with_fusion error predef_symbols + imported_types type_def_infos var_heap type_heaps symbol_heap compile_with_fusion error predef_symbols #! nr_of_funs = size fun_defs # initial_ti = { ti_fun_defs = fun_defs @@ -3594,7 +3594,7 @@ transformGroups cleanup_info main_dcl_module_n ro_StdStrictLists_module_n def_mi } # groups = [group \\ group <-: groups] # (groups, imported_types, collected_imports, fun_indices_with_abs_syn_types, ti) - = transform_groups 0 groups [] common_defs imported_funs imported_types collected_imports [] initial_ti + = transform_groups 0 groups [] common_defs imported_funs imported_types [] [] initial_ti # groups = {group \\ group <- reverse groups} {ti_fun_defs,ti_new_functions,ti_var_heap,ti_symbol_heap,ti_fun_heap,ti_next_fun_nr,ti_type_heaps,ti_cleanup_info} = ti |