d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fixed bug: subranges of subranges did not work right

Browse source
This commit is contained in:
ceriel 1987-11-17 14:29:14 +00:00
parent f00951f788
commit 619f6bb893
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/comp/Version.c
View file

@ -1 +1 @@
static char Version[] = "ACK Modula-2 compiler Version 0.26"; static char Version[] = "ACK Modula-2 compiler Version 0.27";

2
lang/m2/comp/type.c
View file

@ -290,7 +290,7 @@ chk_basesubrange(tp, base)
int fund = base->tp_next->tp_fund; int fund = base->tp_next->tp_fund;
if (! chk_bounds(base->sub_lb, tp->sub_lb, 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"); error("base type has insufficient range");
} }
base = base->tp_next; base = base->tp_next;