diff options
| author | johnvg | 2007-04-11 13:03:32 +0000 |
|---|---|---|
| committer | johnvg | 2007-04-11 13:03:32 +0000 |
| commit | 0c39a0f829bb956928850737b5efe74690249754 (patch) | |
| tree | 8071a397cd8e6bf81b0a168955761b40c66b2852 /frontend/checktypes.icl | |
| parent | remove cons_index field in pattern in functions that do not use this field (diff) | |
rename field cons_index as cons_number
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1665 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/checktypes.icl')
| -rw-r--r-- | frontend/checktypes.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/checktypes.icl b/frontend/checktypes.icl index 98bd02e..c2ccb0f 100644 --- a/frontend/checktypes.icl +++ b/frontend/checktypes.icl @@ -375,7 +375,7 @@ where attr_vars = add_universal_attr_vars st_args free_attrs cons_type = { cons_def.cons_type & st_vars = free_vars, st_args = st_args, st_result = type_lhs, st_attr_vars = attr_vars, st_attr_env = st_attr_env } (new_type_ptr, ti_var_heap) = newPtr VI_Empty ti.ti_var_heap - cons_def = { cons_def & cons_type = cons_type, cons_index = cons_index, cons_type_index = cti.cti_type_index, cons_exi_vars = exi_vars, + cons_def = { cons_def & cons_type = cons_type, cons_number = cons_index, cons_type_index = cti.cti_type_index, cons_exi_vars = exi_vars, cons_type_ptr = new_type_ptr, cons_arg_vars = cons_arg_vars } = ({ ts & ts_cons_defs.[ds_index] = cons_def}, { ti & ti_var_heap = ti_var_heap }, { cs & cs_symbol_table=symbol_table }) where @@ -1570,7 +1570,7 @@ where , cons_type = { st_vars = [], st_args = reverse rev_field_types, st_args_strictness = first_n_strict nr_of_fields, st_result = rec_type, st_arity = nr_of_fields, st_context = [], st_attr_vars = [], st_attr_env = [] } , cons_priority = NoPrio - , cons_index = 0 + , cons_number = 0 , cons_type_index = index_type , cons_exi_vars = [] , cons_arg_vars = [] |