Added code to kill regvar(...)

This commit is contained in:
ceriel
1987-02-05 19:20:54 +00:00
parent f52816824c
commit 1c5bb57ecf
2 changed files with 22 additions and 13 deletions

View File

@@ -121,6 +121,9 @@ errorexit() {
#define codeint(x) fprintf(code," %d",x)
#define codenl() fprintf(code,"\n")
#else
#define codenl()
#define code8nl(x) code8(x)
code8(x) {
codeindex++;
@@ -130,11 +133,6 @@ code8(x) {
putc(x,code);
}
code8nl(x) {
code8(x);
}
code53(x,y) {
code8(x+(y<<5));
@@ -151,8 +149,6 @@ codeint(x) {
}
}
codenl() {
}
#endif
int prevind=0;
int npatbytes= -1;
@@ -686,12 +682,14 @@ varinfo *kills,*allocates,*generates,*yields,*leaving;
code53(DO_REMOVE,1);
codeint(vp->vi_int[0]);
codeint(vp->vi_int[1]);
codenl();
} else {
} else if (vp->vi_int[1] >= 0) {
code53(DO_REMOVE,0);
codeint(vp->vi_int[0]);
codenl();
} else {
code8(DO_RREMOVE);
codeint(vp->vi_int[0]);
}
codenl();
}
nremoves=0;
for(vp=generates;vp!=0;vp=vp->vi_next) {