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

improved ply handling

Browse source
This commit is contained in:
ceriel 1992-12-18 10:22:55 +00:00
parent 5fbaff533c
commit ed2ba2e1d5
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mach/proto/ncg/codegen.c
View file

@ -148,6 +148,10 @@ unsigned codegen(codep,ply,toplevel,costlimit,forced) byte *codep; unsigned cost
#ifndef NDEBUG
chkregs();
#endif
if (! toplevel) {
ply -= emp-saveemp+1;
if (ply <= 0) ply = 1;
}
n = *bp++;
if (n==0) { /* "procedure" */
int j, nargs;
@ -853,8 +857,7 @@ normalfailed: if (stackpad!=tokpatlen) {
}
}
if (!toplevel) {
if (ply >= j) ply = emrepllen + ply - j;
else ply = emrepllen;
ply += emrepllen;
#ifndef NDEBUG
if (Debug > 4)
fprintf(stderr, "ply becomes %d\n", ply);