From: ceriel <none@none>
Date: Wed, 12 Sep 1990 17:09:57 +0000 (+0000)
Subject: Fix: the type INTEGER[0..255] was put in one byte
X-Git-Tag: release-5-5~1550
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=11d8919d76e3385f02f238f628e8f4073cdb51b0;p=ack.git

Fix: the type INTEGER[0..255] was put in one byte
---

diff --git a/lang/m2/comp/type.c b/lang/m2/comp/type.c
index 06a409cb2..017f2c829 100644
--- a/lang/m2/comp/type.c
+++ b/lang/m2/comp/type.c
@@ -350,7 +350,8 @@ subr_type(lb, ub, base)
 		   ???
 		*/
 		assert(lb->nd_INT >= 0);
-		if (BaseType(ub->nd_type) == int_type) tp = int_type;
+		if (BaseType(ub->nd_type) == int_type ||
+		    (base && BaseType(base) == int_type)) tp = int_type;
 		else tp = card_type;
 	}