diff options
| author | johnvg | 2010-05-07 10:06:37 +0000 |
|---|---|---|
| committer | johnvg | 2010-05-07 10:06:37 +0000 |
| commit | c977d1062979b9cec769a22cebc8da2e9c18d1f4 (patch) | |
| tree | 0653379e5cc053697229dcb13a8a223ed601b3b0 | |
| parent | report an error if a generic instance is derived for a type with an (diff) | |
no message
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1785 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/generics1.icl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/frontend/generics1.icl b/frontend/generics1.icl index a99a6df..dcd44b3 100644 --- a/frontend/generics1.icl +++ b/frontend/generics1.icl @@ -194,7 +194,7 @@ where #! modules = {modules & [n].com_generic_defs = com_generic_defs} = clear_module (inc n) modules heaps - clear_generic_def _ generic_def=:{gen_ident,gen_info_ptr} heaps=:{hp_generic_heap} + clear_generic_def generic_def=:{gen_ident,gen_info_ptr} heaps=:{hp_generic_heap} #! (gen_info, hp_generic_heap) = readPtr gen_info_ptr hp_generic_heap #! gen_info = { gen_info & gen_classes = createArray 32 [] } #! hp_generic_heap = writePtr gen_info_ptr gen_info hp_generic_heap @@ -815,9 +815,6 @@ where make_expr (TFA _ _) heaps // error is reported in convertATypeToGenTypeStruct = make_error_type_cons heaps - make_expr (TFAC _ _ _) heaps - // error is reported in convertATypeToGenTypeStruct - = make_error_type_cons heaps make_expr _ heaps = abort "type does not match\n" |