From 11d8919d76e3385f02f238f628e8f4073cdb51b0 Mon Sep 17 00:00:00 2001 From: ceriel 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 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; }