diff options
| author | alimarin | 2001-04-25 15:57:41 +0000 |
|---|---|---|
| committer | alimarin | 2001-04-25 15:57:41 +0000 |
| commit | 36aaf5c047be8b363b5e0ea9cdb35bf69c3652e1 (patch) | |
| tree | 497776e2c0d8c17070794f0285088e6f9ec00c80 /frontend/checktypes.icl | |
| parent | *** empty log message *** (diff) | |
added support for constructors (for toString like usage),
fromString is not yet supported
some error handling improved
parial instances are temporary disabled
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@368 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 a06a466..7c14be4 100644 --- a/frontend/checktypes.icl +++ b/frontend/checktypes.icl @@ -1247,7 +1247,7 @@ where -> (!*{#ClassDef}, !w:{#DclModule}, !v:[SymbolPtr], !u:Indexes, !*TypeVarHeap, !*VarHeap, !*CheckState) create_class_dictionary mod_index class_index class_defs =:{[class_index] = class_def } modules rev_dictionary_list indexes type_var_heap var_heap cs=:{cs_symbol_table,cs_error} - # {class_name,class_args,class_arity,class_members,class_context,class_dictionary=ds=:{ds_ident={id_info}}} = class_def + # {class_name,class_args,class_arity,class_members,class_context,class_dictionary=ds=:{ds_ident={id_name,id_info}}} = class_def | isNilPtr id_info # (type_id_info, cs_symbol_table) = newPtr EmptySymbolTableEntry cs_symbol_table nr_of_members = size class_members @@ -1315,7 +1315,7 @@ where ste_def_level = NotALevel, ste_previous = abort "empty SymbolTableEntry" }) <:= (cons_id_info, { ste_kind = STE_DictCons cons_def, ste_index = index_cons, ste_def_level = NotALevel, ste_previous = abort "empty SymbolTableEntry" })}) - + # ({ste_kind}, cs_symbol_table) = readPtr id_info cs_symbol_table | ste_kind == STE_Empty = (class_defs, modules, rev_dictionary_list, indexes, type_var_heap, var_heap, |