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

Added a command to kill a register

Browse Source
This commit is contained in:
ceriel
1989-10-26 15:41:38 +00:00
parent adc8fc6e9e
commit 74546bd985
3 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -482,12 +482,14 @@ normalfailed: if (stackpad!=tokpatlen) {
rp->r_contents.t_token=0;
break;
}
case DO_KILLREG:
case DO_RREMOVE: { /* register remove */
register i;
int nodeno;
token_p tp;
tkdef_p tdp;
result_t result;
int dokill = (codep[-1] & 037) == DO_KILLREG;
DEBUG("RREMOVE");
getint(nodeno,codep);
@@ -495,6 +497,7 @@ normalfailed: if (stackpad!=tokpatlen) {
if (result.e_typ!=EV_REG)
break;
if ( in_stack(result.e_v.e_reg) ) BROKE() ; /* Check aside-stack */
if (dokill) machregs[result.e_v.e_reg].r_contents.t_token = 0;
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)