From 75cb9970bee61dc3f0458c4292eefefee76231ce Mon Sep 17 00:00:00 2001
From: ceriel <devnull@localhost>
Date: Wed, 12 Sep 1990 17:09:57 +0000
Subject: [PATCH] Fix: the type INTEGER[0..255] was put in one byte

---
 lang/m2/comp/type.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lang/m2/comp/type.c b/lang/m2/comp/type.c
index 06a409cb..017f2c82 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;
 	}