diff options
| author | johnvg | 2002-03-20 14:03:18 +0000 |
|---|---|---|
| committer | johnvg | 2002-03-20 14:03:18 +0000 |
| commit | 1f740c58ca6130f7e907b5df7de36b87dece93c5 (patch) | |
| tree | 77f5e6fc63b42d234f0de071e617512d27925b2f | |
| parent | bug fixes: record updates with unboxed tuple fields and (diff) | |
bug fix: prevent compiler crash if type in icl module has
fewer constructors than type in dcl module
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1059 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/comparedefimp.icl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/frontend/comparedefimp.icl b/frontend/comparedefimp.icl index 72935e0..de6729a 100644 --- a/frontend/comparedefimp.icl +++ b/frontend/comparedefimp.icl @@ -53,6 +53,8 @@ where = compare_constructor_lists dcl_conses icl_conses dcl_cons_defs icl_cons_defs comp_st = (False, icl_cons_defs, comp_st) = (False, icl_cons_defs, comp_st) + compare_constructor_lists [ dcl_cons : dcl_conses ] [] dcl_cons_defs icl_cons_defs comp_st + = (False, icl_cons_defs, comp_st) compare_rhs_of_types (SynType dclType) (SynType iclType) dcl_cons_defs icl_cons_defs comp_st # (ok, comp_st) = compare dclType iclType comp_st @@ -1250,4 +1252,5 @@ file_to_true file = code { pushB TRUE .end }; + */
\ No newline at end of file |