diff options
| author | Nathan Froyd <froydnj@codesourcery.com> | 2011-04-14 11:18:40 +0000 |
|---|---|---|
| committer | Nathan Froyd <froydnj@gcc.gnu.org> | 2011-04-14 11:18:40 +0000 |
| commit | 61e46a7d5e8031930c341dc122ba614d6970886b (patch) | |
| tree | 639555a2163347dbebd098a7599ee397b518a58a /gcc/ada | |
| parent | 023009d4d1a7471a5b965af6baf2d721e607fe92 (diff) | |
| download | gcc-61e46a7d5e8031930c341dc122ba614d6970886b.zip gcc-61e46a7d5e8031930c341dc122ba614d6970886b.tar.gz gcc-61e46a7d5e8031930c341dc122ba614d6970886b.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 4 |
2 files changed, 6 insertions, 2 deletions
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 <froydnj@codesourcery.com> + + * gcc-interface/utils.c (gnat_poplevel): Use block_chainon. + 2011-04-12 Nathan Froyd <froydnj@codesourcery.com> * 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; } |