From 619f6bb89371b207780046eaa4586a40eb9cca29 Mon Sep 17 00:00:00 2001 From: ceriel Date: Tue, 17 Nov 1987 14:29:14 +0000 Subject: [PATCH] Fixed bug: subranges of subranges did not work right --- lang/m2/comp/Version.c | 2 +- lang/m2/comp/type.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; -- 2.34.1