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.
*/
if (npos==0) {
if (stackheight<=tokpatlen) {
if (!toplevel) {
BROKE();
} else
fatal("No regs available");
}
totalcost += stackupto( &fakestack[0],ply,toplevel);
CHKCOST();
if (stackheight<=tokpatlen) {
if (!toplevel) {
BROKE();
} else {
if (paniced)
fatal("No regs available");
totalcost += stackupto( &fakestack[0],ply,toplevel);
goto panic;
}
}
totalcost += stackupto( &fakestack[0],ply,toplevel);
CHKCOST();
}
} while (npos==0);
if (!exactmatch) {