* 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
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.
* config/arm/arm.c (arm_get_pcs_model): Likewise.
* config/avr/avr.c (init_cumulative_args): Likewise.
+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.
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
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;