From 61e46a7d5e8031930c341dc122ba614d6970886b Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Thu, 14 Apr 2011 11:18:40 +0000 Subject: utils.c (gnat_poplevel): Use block_chainon. gcc/ada/ * gcc-interface/utils.c (gnat_poplevel): Use block_chainon. gcc/ * function.h (block_chainon): Declare. * function.c (block_chainon): Define. gcc/cp/ * decl.c (poplevel): Use block_chainon. gcc/fortran// * f95-lang.c (poplevel): Use BLOCK_CHAIN and block_chainon. gcc/java/ * decl.c (poplevel): Use BLOCK_CHAIN and block_chainon. From-SVN: r172418 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gcc-interface/utils.c | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2c0aeb8..3e85959 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2011-04-14 Nathan Froyd + + * gcc-interface/utils.c (gnat_poplevel): Use block_chainon. + 2011-04-12 Nathan Froyd * gcc-interface/ada-tree.h (union lang_tree_node): Check for TS_COMMON diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 3ecea18..1031ee9 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -459,8 +459,8 @@ gnat_poplevel (void) else if (BLOCK_VARS (block) == NULL_TREE) { BLOCK_SUBBLOCKS (level->chain->block) - = chainon (BLOCK_SUBBLOCKS (block), - BLOCK_SUBBLOCKS (level->chain->block)); + = block_chainon (BLOCK_SUBBLOCKS (block), + BLOCK_SUBBLOCKS (level->chain->block)); BLOCK_CHAIN (block) = free_block_chain; free_block_chain = block; } -- cgit v1.1