diff options
| author | Richard Henderson <rth@cygnus.com> | 1999-03-04 07:01:06 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 1999-03-04 07:01:06 -0800 |
| commit | aa3d4bf947a0c391a39c03294fb1bc69aa5e7fe3 (patch) | |
| tree | b8d93eab7304ab64217058a502249db8f7dc3a1f | |
| parent | dd5657ed922e7da1d162987dec9bdece8630be7d (diff) | |
| download | gcc-aa3d4bf947a0c391a39c03294fb1bc69aa5e7fe3.zip gcc-aa3d4bf947a0c391a39c03294fb1bc69aa5e7fe3.tar.gz gcc-aa3d4bf947a0c391a39c03294fb1bc69aa5e7fe3.tar.bz2 | |
flow.c (delete_unreachable_blocks): Mark blocks as they are put on to the worklist, not as they are taken off.
* flow.c (delete_unreachable_blocks): Mark blocks as they
are put on to the worklist, not as they are taken off.
From-SVN: r25584
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/flow.c | 15 |
2 files changed, 15 insertions, 5 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 59a22f1..0a6bf91 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +Thu Mar 4 15:00:35 1999 Richard Henderson <rth@cygnus.com> + + * flow.c (delete_unreachable_blocks): Mark blocks as they + are put on to the worklist, not as they are taken off. + Thu Mar 4 00:05:44 1999 Jeffrey A Law (law@cygnus.com) * function.c (current_function_has_computed_jump): Remove duplicate @@ -1466,7 +1466,12 @@ delete_unreachable_blocks () support Fortran alternate entry points. */ for (e = ENTRY_BLOCK_PTR->succ; e ; e = e->succ_next) - *tos++ = e->dest; + { + *tos++ = e->dest; + + /* Mark the block with a handy non-null value. */ + e->dest->aux = e; + } /* Iterate: find everything reachable from what we've already seen. */ @@ -1474,12 +1479,12 @@ delete_unreachable_blocks () { basic_block b = *--tos; - /* Mark the block with a handy non-null value. */ - b->aux = b; - for (e = b->succ; e ; e = e->succ_next) if (!e->dest->aux) - *tos++ = e->dest; + { + *tos++ = e->dest; + e->dest->aux = e; + } } /* Delete all unreachable basic blocks. Count down so that we don't |