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

Fixed bug: divide by 0

Browse source
This commit is contained in:
ceriel 1992-11-09 10:14:47 +00:00
parent 851efa7ffe
commit a829777e65
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -125,7 +125,7 @@ align(pos, al)
int i = pos % al; int i = pos % al;
if (i) return pos + (al - i); if (i) return pos + (al - i);
return pos; return pos == 0 ? 1 : pos;
} }
t_type * t_type *
@ -384,6 +384,8 @@ subr_type(lb, ub, base)
*/ */
if (! chk_bounds(lb->nd_INT, ub->nd_INT, tp->tp_fund)) { if (! chk_bounds(lb->nd_INT, ub->nd_INT, tp->tp_fund)) {
node_error(lb, "lower bound exceeds upper bound"); node_error(lb, "lower bound exceeds upper bound");
ub->nd_INT = lb->nd_INT;
res->sub_ub = res->sub_lb;
} }
if (tp == card_type) { if (tp == card_type) {