From 5f3e4693e6ed7565b2c1e7e98d50a1deab36cec5 Mon Sep 17 00:00:00 2001
From: eck <none@none>
Date: Tue, 28 Nov 1989 15:28:52 +0000
Subject: [PATCH] array type-checking was wrong

---
 lang/cem/cemcom.ansi/ch3.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lang/cem/cemcom.ansi/ch3.c b/lang/cem/cemcom.ansi/ch3.c
index 1b1e6da50..6960f9bf3 100644
--- a/lang/cem/cemcom.ansi/ch3.c
+++ b/lang/cem/cemcom.ansi/ch3.c
@@ -391,10 +391,15 @@ equal_type(tp, otp, qual_lev)
 	if (!tp
 	    || !otp
 	    || (tp->tp_fund != otp->tp_fund)
-	    || (tp->tp_size != otp->tp_size)
 	    || (tp->tp_unsigned != otp->tp_unsigned)
 	    || (tp->tp_align != otp->tp_align))
 		return 0;
+	if (tp->tp_size != otp->tp_size) {
+		if (tp->tp_fund != ARRAY
+		    || (tp->tp_size != -1 && otp->tp_size != -1))
+			return 0;
+	}
+
 	if (qual_lev >= 0) {
 		if (tp->tp_typequal != otp->tp_typequal)
 			strict("illegal qualifiers");