fixed problem: sometimes incorrect labels were generated in case descriptors

This commit is contained in:
ceriel 1989-10-04 14:39:55 +00:00
parent f3a7c72ddb
commit 0364de3a9c

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;