d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

bug fix in repl_mul and moved call to it so that it is done after pattern matching

Browse source
This commit is contained in:
ceriel 1991-11-28 16:59:25 +00:00
parent 244c1e5a01
commit ec47c06ad7
1 changed files with 35 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
util/opt/peephole.c
View file

@ -609,28 +609,6 @@ basicblock(alpp) line_p *alpp; {
lpp = alpp; madeopt = FALSE;
while ((*lpp) != (line_p) 0 && ((*lpp)->l_instr&BMASK) != op_lab) {
lp = *lpp;
if (repl_muls) {
line_p b_repl, e_repl;
int cnt = repl_mul(lp, &b_repl, &e_repl);
if (cnt > 0 && cnt <= repl_muls) {
*lpp = b_repl;
e_repl->l_next = lp->l_next->l_next;
oldline(lp->l_next);
oldline(lp);
lp = b_repl;
madeopt = TRUE;
}
else {
while (b_repl != (line_p) 0) {
line_p n = b_repl->l_next;
oldline(b_repl);
b_repl = n;
}
}
}
next = &lp->l_next;
hash[0] = lp->l_instr&BMASK;
lp=lp->l_next;
@ -676,6 +654,30 @@ basicblock(alpp) line_p *alpp; {
else count = 0;
lpp = next;
}
lpp = alpp;
if (repl_muls) while ((*lpp) != (line_p) 0) {
line_p b_repl, e_repl;
int cnt = repl_mul(*lpp, &b_repl, &e_repl);
lp = *lpp;
if (cnt > 0 && cnt <= repl_muls) {
*lpp = b_repl;
e_repl->l_next = lp->l_next->l_next;
oldline(lp->l_next);
oldline(lp);
lpp = &e_repl->l_next;
madeopt = TRUE;
}
else {
while (b_repl != (line_p) 0) {
line_p n = b_repl->l_next;
oldline(b_repl);
b_repl = n;
}
lpp = &lp->l_next;
}
}
return madeopt;
}
@ -779,17 +781,19 @@ repl_mul(lp, b, e)
newinstr(b, op_asp, sz); b = &((*b)->l_next);
}
newinstr(b, op_sbu, sz); b = &((*b)->l_next);
retval++;
newinstr(b, op_exg, sz); b = &((*b)->l_next);
newinstr(b, op_loc, n1); b = &((*b)->l_next);
newinstr(b, op_slu, sz); b = &((*b)->l_next);
retval++;
newinstr(b, op_exg, sz); b = &((*b)->l_next);
newinstr(b, op_dup, 2*sz); b = &((*b)->l_next);
newinstr(b, op_asp, sz); b = &((*b)->l_next);
newinstr(b, op_adu, sz); b = &((*b)->l_next);
newinstr(b, op_exg, sz); b = &((*b)->l_next);
retval++;
if (n1 != 8*sz) {
newinstr(b, op_loc, n1); b = &((*b)->l_next);
newinstr(b, op_slu, sz); b = &((*b)->l_next);
retval++;
newinstr(b, op_exg, sz); b = &((*b)->l_next);
newinstr(b, op_dup, 2*sz); b = &((*b)->l_next);
newinstr(b, op_asp, sz); b = &((*b)->l_next);
newinstr(b, op_adu, sz); b = &((*b)->l_next);
newinstr(b, op_exg, sz); b = &((*b)->l_next);
retval++;
}
if (n0) {
newinstr(b, op_loc, n0); b = &((*b)->l_next);
newinstr(b, op_slu, sz); b = &((*b)->l_next);