Fixed bug: subranges of subranges did not work right

diff --git a/lang/m2/comp/Version.c b/lang/m2/comp/Version.c
index ee822b0..42bac35 100644 (file)
--- a/lang/m2/comp/Version.c
+++ b/lang/m2/comp/Version.c
@@ -1 +1 @@
-static char Version[] = "ACK Modula-2 compiler Version 0.26";
+static char Version[] = "ACK Modula-2 compiler Version 0.27";

diff --git a/lang/m2/comp/type.c b/lang/m2/comp/type.c
index d7e8967..4f032aa 100644 (file)
--- a/lang/m2/comp/type.c
+++ b/lang/m2/comp/type.c
@@ -290,7 +290,7 @@ chk_basesubrange(tp, base)
                int fund = base->tp_next->tp_fund;
 
                if (! chk_bounds(base->sub_lb, tp->sub_lb, fund) || 
-                   ! chk_bounds(base->sub_ub, tp->sub_ub, fund)) {
+                   ! chk_bounds(tp->sub_ub, base->sub_ub, fund)) {
                        error("base type has insufficient range");
                }
                base = base->tp_next;