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

bug fixed: assemble_allocs() did generate whole_procedure allocations.

Browse source 
These allocations were initialized with a very low profit. Consequently
account_regsave rejected these allocations.
Solution: repl_allocs() updates the al_profits field of the
whole_procedure allocation.
This commit is contained in:
bal 1985-01-30 10:47:47 +00:00
parent 387191a2c7
commit 7f9dd27dc8
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
util/ego/ra/ra_pack.c
View file

@ -322,11 +322,18 @@ STATIC alloc_p find_prev(alloc,list)
} }
/* If an item is always put in the same register during different loops,
* we try to put it in that register during the whole procedure.
* The profits of the whole-procedure allocation are updated to prevent
* account_regsave from rejecting it.
*/
STATIC repl_allocs(new,old,packed) STATIC repl_allocs(new,old,packed)
alloc_p new,old,packed; alloc_p new,old,packed;
{ {
alloc_p x,next,prev,*p; alloc_p x,next,prev,*p;
short prof = 0;
new->al_regnr = old->al_regnr; new->al_regnr = old->al_regnr;
new->al_dummy = old->al_dummy; new->al_dummy = old->al_dummy;
prev = find_prev(old,packed); prev = find_prev(old,packed);
@ -338,12 +345,14 @@ STATIC repl_allocs(new,old,packed)
for (x = old; x != (alloc_p) 0; x = next) { for (x = old; x != (alloc_p) 0; x = next) {
next = x->al_mates; next = x->al_mates;
if (x->al_item == new->al_item) { if (x->al_item == new->al_item) {
prof += x->al_profits;
*p = next; *p = next;
oldalloc(x); oldalloc(x);
} else { } else {
p = &x->al_mates; p = &x->al_mates;
} }
} }
new->al_profits = prof;
} }