godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RREMOVE section updated.

Browse Source
This commit is contained in:
sater 1985-01-11 09:44:34 +00:00
parent 266e0429ef
commit ff89603e82
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mach/proto/ncg/codegen.c
View File

@ -475,9 +475,11 @@ normalfailed: if (stackpad!=tokpatlen) {
tkdef_p tdp;
result_t result;
DEBUG("RREMOVE");
getint(nodeno,codep);
result=compute(&enodes[nodeno]);
assert(result.e_typ==EV_REG);
if (result.e_typ!=EV_REG)
break;
for (tp= &fakestack[stackheight-tokpatlen-1];tp>=&fakestack[0];tp--)
if (tp->t_token==-1) {
if(tp->t_att[0].ar==result.e_v.e_reg)