diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2010-08-09 14:36:50 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2010-08-09 14:36:50 +0000 |
| commit | 72ac05b04e2baf2ff9eebd42e6ff5f22fd3b1546 (patch) | |
| tree | fa6b7dedb01d20440b96360fd716b1a8fdf4f283 /gcc/ada | |
| parent | bfc48cd85f90b6d000d2c2c81eb4a6175817f9df (diff) | |
| download | gcc-72ac05b04e2baf2ff9eebd42e6ff5f22fd3b1546.zip gcc-72ac05b04e2baf2ff9eebd42e6ff5f22fd3b1546.tar.gz gcc-72ac05b04e2baf2ff9eebd42e6ff5f22fd3b1546.tar.bz2 | |
tree.c (nreverse): Assert that we don't have a BLOCK.
gcc/
* tree.c (nreverse): Assert that we don't have a BLOCK.
gcc/ada/
* gcc-interface/utils.c (gnat_poplevel): Use blocks_nreverse.
From-SVN: r163036
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3424825..1b4e752 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-08-09 Nathan Froyd <froydnj@codesourcery.com> + + * gcc-interface/utils.c (gnat_poplevel): Use blocks_nreverse. + 2010-08-09 Eric Botcazou <ebotcazou@adacore.com> * gcc-interface/utils.c (build_vms_descriptor32): Fix formatting. diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 5edcbfe..e1f4bbc 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -382,7 +382,7 @@ gnat_poplevel (void) tree block = level->block; BLOCK_VARS (block) = nreverse (BLOCK_VARS (block)); - BLOCK_SUBBLOCKS (block) = nreverse (BLOCK_SUBBLOCKS (block)); + BLOCK_SUBBLOCKS (block) = blocks_nreverse (BLOCK_SUBBLOCKS (block)); /* If this is a function-level BLOCK don't do anything. Otherwise, if there are no variables free the block and merge its subblocks into those of its |