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 06a409c..017f2c8 100644 (file)
--- 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;
        }