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

This commit is contained in:
ceriel 1990-09-12 17:09:57 +00:00
parent e144c7cc4c
commit 11d8919d76

View file

@ -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;
}