diff options
| author | johnvg | 2013-04-05 14:31:26 +0000 |
|---|---|---|
| committer | johnvg | 2013-04-05 14:31:26 +0000 |
| commit | 06a9755549c194ed39245152f66d81f43e2d9719 (patch) | |
| tree | 36833039b00c467487ffbd5da3d00be4fad5dcd9 /frontend/hashtable.icl | |
| parent | change type GenericCaseDef, add types GenericCaseFunctions and GCF (diff) | |
add derive class for deriving generic functions in class context (from iTask branch)
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2225 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/hashtable.icl')
| -rw-r--r-- | frontend/hashtable.icl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/hashtable.icl b/frontend/hashtable.icl index b5e8552..ec4d099 100644 --- a/frontend/hashtable.icl +++ b/frontend/hashtable.icl @@ -23,6 +23,7 @@ import predef, syntax, compare_types, compare_constructor | IC_InstanceMember ![Type] | IC_Generic | IC_GenericCase !Type + | IC_GenericDeriveClass !Type | IC_TypeExtension !{#Char}/*module name*/ | IC_Unknown @@ -45,6 +46,8 @@ where = compare_types types1 types2 (=<) (IC_GenericCase type1) (IC_GenericCase type2) = type1 =< type2 + (=<) (IC_GenericDeriveClass type1) (IC_GenericDeriveClass type2) + = type1 =< type2 (=<) (IC_Field typ_id1) (IC_Field typ_id2) = typ_id1 =< typ_id2 (=<) (IC_TypeExtension module_name1) (IC_TypeExtension module_name2) |