Yet another bug reported by sater.

This commit is contained in:
bal 1985-11-18 16:55:53 +00:00
parent b493f98f39
commit 5ac646f89f

View file

@ -565,14 +565,18 @@ normalfailed: if (stackpad!=tokpatlen) {
* property. If none then some stacking has to take place. * property. If none then some stacking has to take place.
*/ */
if (npos==0) { if (npos==0) {
if (stackheight<=tokpatlen) { if (stackheight<=tokpatlen) {
if (!toplevel) { if (!toplevel) {
BROKE(); BROKE();
} else } else {
fatal("No regs available"); if (paniced)
} fatal("No regs available");
totalcost += stackupto( &fakestack[0],ply,toplevel); totalcost += stackupto( &fakestack[0],ply,toplevel);
CHKCOST(); goto panic;
}
}
totalcost += stackupto( &fakestack[0],ply,toplevel);
CHKCOST();
} }
} while (npos==0); } while (npos==0);
if (!exactmatch) { if (!exactmatch) {