diff options
| author | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-25 14:26:10 +0000 |
|---|---|---|
| committer | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-25 14:26:10 +0000 |
| commit | 93110716f5c45eeda2b660982dea5b8950c7808a (patch) | |
| tree | 4f90b0636e3c28f99068596b3f97669cdfe3b1b1 /gcc/ada | |
| parent | 4aafb9994bb45aacdaa967bd79f39badb1d183bc (diff) | |
| download | gcc-93110716f5c45eeda2b660982dea5b8950c7808a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130407 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/utils.c | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 4f229ba34a4..cfe27b11937 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2007-11-25 Richard Guenther <rguenther@suse.de> + + utils.c (gnat_pushlevel): Use BLOCK_CHAIN. + (gnat_poplevel): Likewise. + 2007-11-25 Eric Botcazou <ebotcazou@adacore.com> * decl.c (gnat_to_gnu_entity) <E_Record_Type>: If the type has diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 9fed4a9cb5e..e0c0065a652 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); |