OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

tree.c (nreverse): Assert that we don't have a BLOCK.

Browse Source 
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
This commit is contained in:
Nathan Froyd 2010-08-09 14:36:50 +00:00 committed by Nathan Froyd
parent bfc48cd85f
commit 72ac05b04e
4 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ChangeLog
View File

@ -1,3 +1,7 @@
2010-08-09 Nathan Froyd <froydnj@codesourcery.com>
* tree.c (nreverse): Assert that we don't have a BLOCK.
2010-08-09 Nathan Froyd <froydnj@codesourcery.com>
* builtins.c (fold_builtin_next_arg): Use stdarg_p.

4
gcc/ada/ChangeLog
View File

@ -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.

2
gcc/ada/gcc-interface/utils.c
View File

@ -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

3
gcc/tree.c
View File

@ -2108,6 +2108,9 @@ nreverse (tree t)
tree prev = 0, decl, next;
for (decl = t; decl; decl = next)
{
/* We shouldn't be using this function to reverse BLOCK chains; we
have blocks_nreverse for that. */
gcc_checking_assert (TREE_CODE (decl) != BLOCK);
next = TREE_CHAIN (decl);
TREE_CHAIN (decl) = prev;
prev = decl;