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

Memory allocation/deallocation for extends changed.

Browse source
This commit is contained in:
bal 1985-02-11 09:48:32 +00:00
parent 43f003e959
commit d41c902b12
1 changed files with 5 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
util/ego/bo/bo.c
View file

@ -23,6 +23,9 @@
#define LP_BLOCKS lp_extend->lpx_ra.lpx_blocks #define LP_BLOCKS lp_extend->lpx_ra.lpx_blocks
#define newbolpx() (lpext_p) newstruct(lpext_ra)
#define oldbolpx(x) oldstruct(lpext_ra,x)
STATIC int Sbo; /* #optimizations found */ STATIC int Sbo; /* #optimizations found */
#define DLINK(l1,l2) l1->l_next=l2; l2->l_prev=l1 #define DLINK(l1,l2) l1->l_next=l2; l2->l_prev=l1
@ -248,15 +251,11 @@ STATIC bo_extproc(p)
register loop_p lp; register loop_p lp;
register Lindex pi; register Lindex pi;
register bblock_p b;
for (pi = Lfirst(p->p_loops); pi != (Lindex) 0; for (pi = Lfirst(p->p_loops); pi != (Lindex) 0;
pi = Lnext(pi,p->p_loops)) { pi = Lnext(pi,p->p_loops)) {
lp = (loop_p) Lelem(pi); lp = (loop_p) Lelem(pi);
lp->lp_extend = newralpx(); lp->lp_extend = newbolpx();
}
for (b = p->p_start; b != (bblock_p) 0; b = b->b_next) {
b->b_extend = newrabx();
} }
} }
@ -289,10 +288,7 @@ STATIC bo_cleanproc(p)
for (pi = Lfirst(p->p_loops); pi != (Lindex) 0; for (pi = Lfirst(p->p_loops); pi != (Lindex) 0;
pi = Lnext(pi,p->p_loops)) { pi = Lnext(pi,p->p_loops)) {
lp = (loop_p) Lelem(pi); lp = (loop_p) Lelem(pi);
oldralpx(lp->lp_extend); oldbolpx(lp->lp_extend);
}
for (b = p->p_start; b != (bblock_p) 0; b = b->b_next) {
oldrabx(b->b_extend);
} }
} }