Merge branch 'default' into kernigh-linuxppc

This commit is contained in:
George Koehler 2016-09-17 18:15:54 -04:00
commit ff4a7e3d2a
3 changed files with 11 additions and 5 deletions

View file

@ -171,9 +171,12 @@ STATIC collapse_loops(loops_p)
for (li1 = Lfirst(*loops_p); li1 != (Lindex) 0; li1 = Lnext(li1,*loops_p)) { for (li1 = Lfirst(*loops_p); li1 != (Lindex) 0; li1 = Lnext(li1,*loops_p)) {
lp1 = (loop_p) Lelem(li1); lp1 = (loop_p) Lelem(li1);
lp1->lp_level = (short) 0; lp1->lp_level = (short) 0;
for (li2 = Lfirst(*loops_p); li2 != (Lindex) 0; /* Lnext(li2,*loops_p) must happen before
li2 = Lnext(li2,*loops_p)) { * Lremove(lp2,loops_p) releases the memory for li2.
*/
for (li2 = Lfirst(*loops_p); li2 != (Lindex) 0;) {
lp2 = (loop_p) Lelem(li2); lp2 = (loop_p) Lelem(li2);
li2 = Lnext(li2,*loops_p);
if (lp1 != lp2 && lp1->lp_entry == lp2->lp_entry) { if (lp1 != lp2 && lp1->lp_entry == lp2->lp_entry) {
Ljoin(lp2->LP_BLOCKS,&lp1->LP_BLOCKS); Ljoin(lp2->LP_BLOCKS,&lp1->LP_BLOCKS);
oldcflpx(lp2->lp_extend); oldcflpx(lp2->lp_extend);

View file

@ -386,6 +386,7 @@ putunit(kind,p,l,gf,lf)
register bblock_p b; register bblock_p b;
register short n = 0; register short n = 0;
Lindex pi; Lindex pi;
bblock_p nextb;
loop_p lp; loop_p lp;
curoutp = gf; curoutp = gf;
@ -432,10 +433,12 @@ putunit(kind,p,l,gf,lf)
* after it has been written, because there may be references * after it has been written, because there may be references
* to it from other (later) blocks. * to it from other (later) blocks.
*/ */
for (b = p->p_start; b != (bblock_p) 0; b = b->b_next) { for (b = p->p_start; b != (bblock_p) 0; b = nextb) {
Ldeleteset(b->b_loops); Ldeleteset(b->b_loops);
Ldeleteset(b->b_succ); Ldeleteset(b->b_succ);
Ldeleteset(b->b_pred); Ldeleteset(b->b_pred);
/* Must read b->b_next before releasing b */
nextb = b->b_next;
oldbblock(b); oldbblock(b);
} }
/* Release the memory for the lmap, lbmap, bmap, lpmap tables */ /* Release the memory for the lmap, lbmap, bmap, lpmap tables */

View file

@ -59,7 +59,7 @@ STATIC traverse_defs(p,action)
def_to_copynr = newtable(nrdefs); def_to_copynr = newtable(nrdefs);
cnt = 1; cnt = 1;
} }
if (defcnt > nrdefs) return; if (defcnt > nrexpldefs) return;
for (b = p->p_start; b != (bblock_p) 0; b = b->b_next) { for (b = p->p_start; b != (bblock_p) 0; b = b->b_next) {
for (l = b->b_start; l != (line_p) 0; l = l->l_next) { for (l = b->b_start; l != (line_p) 0; l = l->l_next) {
if (defs[defcnt] == l) { if (defs[defcnt] == l) {
@ -75,7 +75,7 @@ STATIC traverse_defs(p,action)
} }
} }
} }
if (++defcnt > nrdefs) return; if (++defcnt > nrexpldefs) return;
} }
} }
} }