From 9b58f7398639e201117b4f8131d0d2c92f4c6a52 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Fri, 23 Feb 2001 20:38:58 +0000 Subject: [PATCH] c-decl.c (set_block): Set NAMES and BLOCKS from BLOCK. * c-decl.c (set_block): Set NAMES and BLOCKS from BLOCK. * ch/decl.c, f/com.c, java/decl.c: Likewise. From-SVN: r40010 --- gcc/ChangeLog | 2 ++ gcc/c-decl.c | 4 ++++ gcc/ch/ChangeLog | 4 ++++ gcc/ch/decl.c | 3 +++ gcc/f/ChangeLog | 4 ++++ gcc/f/com.c | 4 ++++ gcc/java/ChangeLog | 4 ++++ gcc/java/decl.c | 4 ++++ 8 files changed, 29 insertions(+) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c5e0bb3d30c..ddce687a3bb 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,7 @@ Fri Feb 23 15:28:39 2001 Richard Kenner + * c-decl.c (set_block): Set NAMES and BLOCKS from BLOCK. + * varasm.c (output_constant): Recompute CODE after lang-specific fn. 2001-02-23 Jeffrey Oldham diff --git a/gcc/c-decl.c b/gcc/c-decl.c index 0f104a44cf0..cd6929f8576 100644 --- a/gcc/c-decl.c +++ b/gcc/c-decl.c @@ -1260,6 +1260,10 @@ set_block (block) register tree block; { current_binding_level->this_block = block; + current_binding_level->names = chainon (current_binding_level->names, + BLOCK_VARS (block)); + current_binding_level->blocks = chainon (current_binding_level->blocks, + BLOCK_SUBBLOCKS (block)); } void diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog index c5283955ce4..315713d3ebe 100644 --- a/gcc/ch/ChangeLog +++ b/gcc/ch/ChangeLog @@ -1,3 +1,7 @@ +Fri Feb 23 15:28:39 2001 Richard Kenner + + * decl.c (set_block): Set NAMES and BLOCKS from BLOCK. + 2001-02-15 Jim Meyering * Make-lang.in (CHILL.install-common): Depend on `installdirs'. diff --git a/gcc/ch/decl.c b/gcc/ch/decl.c index 11a05e00218..6cdec6c9bee 100644 --- a/gcc/ch/decl.c +++ b/gcc/ch/decl.c @@ -3016,6 +3016,9 @@ set_block (block) register tree block; { current_scope->this_block = block; + current_scope->decls = chainon (current_scope->decls, BLOCK_VARS (block)); + current_scope->blocks = chainon (current_scope->blocks, + BLOCK_SUBBLOCKS (block)); } /* Record a decl-node X as belonging to the current lexical scope. diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 99634c31ae3..77eb2ed8c50 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +Fri Feb 23 15:28:39 2001 Richard Kenner + + * com.c (set_block): Set NAMES and BLOCKS from BLOCK. + 2001-02-19 Joseph S. Myers * version.c, root.texi: Update GCC version number to 3.1. Update diff --git a/gcc/f/com.c b/gcc/f/com.c index 198a1f719d2..d7ff94a4ca7 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -15174,6 +15174,10 @@ set_block (block) register tree block; { current_binding_level->this_block = block; + current_binding_level->names = chainon (current_binding_level->names, + BLOCK_VARS (block)); + current_binding_level->blocks = chainon (current_binding_level->blocks, + BLOCK_SUBBLOCKS (block)); } /* ~~gcc/tree.h *should* declare this, because toplev.c references it. */ diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog index f62ccf7a281..3dd8de4ebab 100644 --- a/gcc/java/ChangeLog +++ b/gcc/java/ChangeLog @@ -1,3 +1,7 @@ +Fri Feb 23 15:28:39 2001 Richard Kenner + + * decl.c (set_block): Set NAMES and BLOCKS from BLOCK. + 2001-02-20 Alexandre Petit-Bianco * parse.y (check_inner_class_access): Moved declaration of local diff --git a/gcc/java/decl.c b/gcc/java/decl.c index 2f7f31583e0..18b1ec54ecd 100644 --- a/gcc/java/decl.c +++ b/gcc/java/decl.c @@ -1545,6 +1545,10 @@ set_block (block) register tree block; { current_binding_level->this_block = block; + current_binding_level->names = chainon (current_binding_level->names, + BLOCK_VARS (block)); + current_binding_level->blocks = chainon (current_binding_level->blocks, + BLOCK_SUBBLOCKS (block)); } /* integrate_decl_tree calls this function. */ -- 2.30.2