This commit is contained in:
ceriel 1987-02-23 15:48:27 +00:00
parent e2ab98dea0
commit 925ec7555f

View file

@ -689,12 +689,12 @@ varinfo *kills,*allocates,*generates,*yields,*leaving;
code53(DO_REMOVE,1); code53(DO_REMOVE,1);
codeint(vp->vi_int[0]); codeint(vp->vi_int[0]);
codeint(vp->vi_int[1]); codeint(vp->vi_int[1]);
} else if (vp->vi_int[1] >= 0) { } else if (vp->vi_int[0] >= 0) {
code53(DO_REMOVE,0); code53(DO_REMOVE,0);
codeint(vp->vi_int[0]); codeint(vp->vi_int[0]);
} else { } else {
code8(DO_RREMOVE); code8(DO_RREMOVE);
codeint(vp->vi_int[0]); codeint(-vp->vi_int[0] - 1);
} }
codenl(); codenl();
} }