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/fortran/f95-lang.c | |
| 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/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index ffe8953..eb38484 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -444,7 +444,7 @@ poplevel (int keep, int reverse, int functionbody) /* Record the BLOCK node just built as the subblock its enclosing scope. */ for (subblock_node = subblock_chain; subblock_node; - subblock_node = TREE_CHAIN (subblock_node)) + subblock_node = BLOCK_CHAIN (subblock_node)) BLOCK_SUPERCONTEXT (subblock_node) = block_node; /* Clear out the meanings of the local variables of this level. */ @@ -475,7 +475,7 @@ poplevel (int keep, int reverse, int functionbody) else if (block_node) { current_binding_level->blocks - = chainon (current_binding_level->blocks, block_node); + = block_chainon (current_binding_level->blocks, block_node); } /* If we did not make a block for the level just exited, any blocks made for @@ -484,7 +484,7 @@ poplevel (int keep, int reverse, int functionbody) else. */ else if (subblock_chain) current_binding_level->blocks - = chainon (current_binding_level->blocks, subblock_chain); + = block_chainon (current_binding_level->blocks, subblock_chain); if (block_node) TREE_USED (block_node) = 1; |