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

fixed problem: sometimes incorrect labels were generated in case descriptors

Browse Source
This commit is contained in:
ceriel 1989-10-04 14:39:55 +00:00
parent adf6002035
commit a806c41ba3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
util/opt/process.c
View File

@ -68,9 +68,9 @@ relabel() {
for (npp = curpro.numhash; npp < &curpro.numhash[NNUMHASH]; npp++) for (npp = curpro.numhash; npp < &curpro.numhash[NNUMHASH]; npp++)
for (np = *npp; np != (num_p) 0; np = np->n_next) { for (np = *npp; np != (num_p) 0; np = np->n_next) {
if (! np->n_line) continue; assert(! np->n_line ||
assert((np->n_line->l_instr&BMASK) == op_lab ((np->n_line->l_instr&BMASK) == op_lab
&& np->n_line->l_a.la_np == np); && np->n_line->l_a.la_np == np));
for(tp=np; (tp->n_flags&(NUMKNOWN|NUMMARK))==0; for(tp=np; (tp->n_flags&(NUMKNOWN|NUMMARK))==0;
tp = tp->n_repl) tp = tp->n_repl)
tp->n_flags |= NUMMARK; tp->n_flags |= NUMMARK;