diff options
| author | froydnj <froydnj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-09 14:36:50 +0000 |
|---|---|---|
| committer | froydnj <froydnj@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-09 14:36:50 +0000 |
| commit | 43f0f599fa1a8068f992e360c96194a12a3390ca (patch) | |
| tree | fa6b7dedb01d20440b96360fd716b1a8fdf4f283 /gcc/ada/gcc-interface/utils.c | |
| parent | 2bdcc82e286cad12dd5af8c82029b0f39c407a81 (diff) | |
| download | ppe42-gcc-43f0f599fa1a8068f992e360c96194a12a3390ca.tar.gz ppe42-gcc-43f0f599fa1a8068f992e360c96194a12a3390ca.zip | |
gcc/
* tree.c (nreverse): Assert that we don't have a BLOCK.
gcc/ada/
* gcc-interface/utils.c (gnat_poplevel): Use blocks_nreverse.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163036 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 5edcbfeb999..e1f4bbc18e5 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 |
