diff options
| author | ronny | 2003-05-16 09:59:19 +0000 |
|---|---|---|
| committer | ronny | 2003-05-16 09:59:19 +0000 |
| commit | d70d064e64fea680078f0248e6ddb8ece76e0cde (patch) | |
| tree | 0976d44630b049a5ddfb70de86b279d71435af17 /frontend/partition.icl | |
| parent | foldExp - added alternative for EE (diff) | |
renamed field names of type Ident in syntax tree
s/\<mod_name\>/mod_ident/g
s/\<ps_field_name\>/ps_field_ident/g
s/\<ps_selector_name\>/ps_selector_ident/g
s/\<pc_cons_name\>/pc_cons_ident/g
s/\<class_name\>/class_ident/g
s/\<gen_name\>/gen_ident/g
s/\<gen_member_name\>/gen_member_ident/g
s/\<gc_name\>/gc_ident/g
s/\<gc_gname\>/gc_gident/g
s/\<fs_name\>/fs_ident/g
s/\<td_name\>/td_ident/g
s/\<fv_name\>/fv_ident/g
s/\<var_name\>/var_ident/g
s/\<type_name\>/type_ident/g
s/\<symb_name\>/symb_ident/g
s/\<tv_name\>/tv_ident/g
s/\<av_name\>/av_ident/g
s/\<me_symb\>/me_ident/g
s/\<ft_symb\>/ft_ident/g
s/\<fun_symb\>/fun_ident/g
s/\<cons_symb\>/cons_ident/g
s/\<sd_symb\>/sd__ident/g
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1340 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/partition.icl')
| -rw-r--r-- | frontend/partition.icl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/frontend/partition.icl b/frontend/partition.icl index 46a0288..8c42f11 100644 --- a/frontend/partition.icl +++ b/frontend/partition.icl @@ -52,7 +52,7 @@ where = visit_functions funs (min min_dep mark) max_fun_nr fun_defs pi visit_functions [MacroCall module_index fc_index _:funs] min_dep max_fun_nr fun_defs pi - = abort ("visit_functions "+++toString fd.fun_symb+++" "+++toString module_index+++" "+++toString fc_index) + = abort ("visit_functions "+++toString fd.fun_ident+++" "+++toString module_index+++" "+++toString fc_index) visit_functions [DclFunCall module_index fc_index:funs] min_dep max_fun_nr fun_defs pi = visit_functions funs min_dep max_fun_nr fun_defs pi @@ -188,7 +188,7 @@ where = visit_functions funs (min min_dep mark) max_fun_nr fun_defs pi visit_functions [MacroCall module_index fc_index _:funs] min_dep max_fun_nr fun_defs pi - = abort ("visit_functions "+++toString fd.fun_symb+++" "+++toString module_index+++" "+++toString fc_index) + = abort ("visit_functions "+++toString fd.fun_ident+++" "+++toString module_index+++" "+++toString fc_index) visit_functions [DclFunCall module_index fc_index:funs] min_dep max_fun_nr fun_defs pi = visit_functions funs min_dep max_fun_nr fun_defs pi @@ -322,7 +322,7 @@ where = visit_functions funs (min min_dep mark) max_fun_nr fun_defs fun_heap pi visit_functions [MacroCall module_index fc_index _:funs] min_dep max_fun_nr fun_defs fun_heap pi - = abort ("visit_functions "+++toString fd.fun_symb+++" "+++toString module_index+++" "+++toString fc_index) + = abort ("visit_functions "+++toString fd.fun_ident+++" "+++toString module_index+++" "+++toString fc_index) visit_functions [DclFunCall module_index fc_index:funs] min_dep max_fun_nr fun_defs fun_heap pi = visit_functions funs min_dep max_fun_nr fun_defs fun_heap pi @@ -580,7 +580,7 @@ import StdDebug ref_null fd=:{fun_body=TransformedBody {tb_args,tb_rhs}} pi_collect // | not (fst (ferror (stderr <<< fd))) -// # tb_args = tb_args ---> ("ref_null",fd.fun_symb,tb_args,tb_rhs) +// # tb_args = tb_args ---> ("ref_null",fd.fun_ident,tb_args,tb_rhs) # (new_rhs, new_args, _, _, pi_collect) = determineVariablesAndRefCounts tb_args tb_rhs pi_collect # fd = {fd & fun_body=TransformedBody {tb_args=new_args,tb_rhs=new_rhs}} = (fd,pi_collect) |