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

init_regcnt renamed initregcnt to avoid name conflict.

Browse source 
bug fixed in routine fits_in(): test on nil-pointer.
routine choose_location(): interface with tmplocal() changed, second
parameter now is a long, so a cast is added.
This commit is contained in:
bal 1985-01-23 16:07:09 +00:00
parent 3d2c33e277
commit fefe15a844
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -22,7 +22,7 @@ short regs_occupied[NRREGTYPES]; /* #occupied registers for reg_pointer,
*/ */
#define reg_available(t) (regs_available[t] > regs_occupied[t]) #define reg_available(t) (regs_available[t] > regs_occupied[t])
STATIC init_regcount() STATIC initregcount()
{ {
int t; int t;
@ -58,7 +58,7 @@ STATIC bool fits_in(a,b,cont_item)
while (b != (alloc_p) 0) { while (b != (alloc_p) 0) {
if (Cis_elem(a->al_id,b->al_rivals)) break; if (Cis_elem(a->al_id,b->al_rivals)) break;
b = b->al_mates; b = b->al_mates;
if (a->al_item == b->al_item) { if (b != (alloc_p) 0 && a->al_item == b->al_item) {
*cont_item = TRUE; *cont_item = TRUE;
} }
} }
@ -142,7 +142,7 @@ STATIC alloc_p choose_location(alloc,packed,p)
if (fit == (alloc_p) 0) { if (fit == (alloc_p) 0) {
/* Take a brand new register; allocate a dummy local for it */ /* Take a brand new register; allocate a dummy local for it */
alloc->al_regnr = regs_occupied[alloc->al_regtype]++; alloc->al_regnr = regs_occupied[alloc->al_regtype]++;
dum = tmplocal(p,alloc->al_item->it_size); dum = tmplocal(p,(offset) alloc->al_item->it_size);
alloc->al_dummy = dum; alloc->al_dummy = dum;
} else { } else {
alloc->al_regnr = fit->al_regnr; alloc->al_regnr = fit->al_regnr;
@ -255,7 +255,7 @@ STATIC account_regsave(packed,unpacked)
short time,space; short time,space;
short tot_cost = 0,diff; short tot_cost = 0,diff;
init_regcount(); initregcount();
checked = make_dummy(); checked = make_dummy();
while (TRUE) { while (TRUE) {
best_cumprofits(packed,&x,&prev); best_cumprofits(packed,&x,&prev);
@ -387,7 +387,7 @@ pack(alloclist,time_opt,packed_out,not_packed_out,p)
register alloc_p x; register alloc_p x;
alloc_p packed,unpacked,fit; alloc_p packed,unpacked,fit;
init_regcount(); initregcount();
packed = make_dummy(); packed = make_dummy();
unpacked = make_dummy(); unpacked = make_dummy();
unpacked->al_next = alloclist; unpacked->al_next = alloclist;