diff options
| author | Richard Guenther <rguenther@suse.de> | 2007-11-25 14:26:10 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2007-11-25 14:26:10 +0000 |
| commit | 87caf699bdbee02675437483d08bcfa742277a62 (patch) | |
| tree | 4f90b0636e3c28f99068596b3f97669cdfe3b1b1 /gcc/ada/utils.c | |
| parent | f1c8c7eef7349f0aae539bd1b45875ac5bcbaede (diff) | |
| download | gcc-87caf699bdbee02675437483d08bcfa742277a62.zip gcc-87caf699bdbee02675437483d08bcfa742277a62.tar.gz gcc-87caf699bdbee02675437483d08bcfa742277a62.tar.bz2 | |
tree.h (struct tree_block): Move locus member next to flags.
2007-11-25 Richard Guenther <rguenther@suse.de>
* tree.h (struct tree_block): Move locus member next to
flags.
* c-decl.c (SCOPE_LIST_APPEND): Use BLOCK_CHAIN.
(SCOPE_LIST_CONCAT): Likewise.
(pop_scope): Likewise.
* function.c (instantiate_decls_1): Likewise.
(setjmp_vars_warning): Likewise.
* emit-rtl.c (set_used_decls): Likewise.
* tree-inline.c (add_lexical_block): Likewise.
cp/
decl.c (poplevel): Use BLOCK_CHAIN.
ada/
utils.c (gnat_pushlevel): Use BLOCK_CHAIN.
(gnat_poplevel): Likewise.
From-SVN: r130407
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 9fed4a9..e0c0065 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -298,8 +298,8 @@ gnat_pushlevel () if (free_block_chain) { newlevel->block = free_block_chain; - free_block_chain = TREE_CHAIN (free_block_chain); - TREE_CHAIN (newlevel->block) = NULL_TREE; + free_block_chain = BLOCK_CHAIN (free_block_chain); + BLOCK_CHAIN (newlevel->block) = NULL_TREE; } else newlevel->block = make_node (BLOCK); @@ -365,12 +365,12 @@ gnat_poplevel () BLOCK_SUBBLOCKS (level->chain->block) = chainon (BLOCK_SUBBLOCKS (block), BLOCK_SUBBLOCKS (level->chain->block)); - TREE_CHAIN (block) = free_block_chain; + BLOCK_CHAIN (block) = free_block_chain; free_block_chain = block; } else { - TREE_CHAIN (block) = BLOCK_SUBBLOCKS (level->chain->block); + BLOCK_CHAIN (block) = BLOCK_SUBBLOCKS (level->chain->block); BLOCK_SUBBLOCKS (level->chain->block) = block; TREE_USED (block) = 1; set_block_for_group (block); |