From 1f740c58ca6130f7e907b5df7de36b87dece93c5 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 20 Mar 2002 14:03:18 +0000
Subject: 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
---
 frontend/comparedefimp.icl | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'frontend')

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
-- 
cgit v1.2.3