From: ceriel <none@none>
Date: Tue, 17 Nov 1987 14:29:14 +0000 (+0000)
Subject: Fixed bug: subranges of subranges did not work right
X-Git-Tag: release-5-5~3724
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=619f6bb89371b207780046eaa4586a40eb9cca29;p=ack.git

Fixed bug: subranges of subranges did not work right
---

diff --git a/lang/m2/comp/Version.c b/lang/m2/comp/Version.c
index ee822b09b..42bac3577 100644
--- 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 d7e896740..4f032aa56 100644
--- 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;