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

8 files changed, 29 insertions, 0 deletions

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index c5e0bb3..ddce687 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,7 @@
 Fri Feb 23 15:28:39 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
+	* 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  <oldham@codesourcery.com>
diff --git a/gcc/c-decl.c b/gcc/c-decl.c
index 0f104a4..cd6929f 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 c528395..315713d 100644
--- a/gcc/ch/ChangeLog
+++ b/gcc/ch/ChangeLog
@@ -1,3 +1,7 @@
+Fri Feb 23 15:28:39 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* decl.c (set_block): Set NAMES and BLOCKS from BLOCK.
+
 2001-02-15  Jim Meyering  <meyering@lucent.com>
 
 	* Make-lang.in (CHILL.install-common): Depend on `installdirs'.
diff --git a/gcc/ch/decl.c b/gcc/ch/decl.c
index 11a05e0..6cdec6c 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 99634c3..77eb2ed 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Fri Feb 23 15:28:39 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* com.c (set_block): Set NAMES and BLOCKS from BLOCK.
+
 2001-02-19  Joseph S. Myers  <jsm28@cam.ac.uk>
 
 	* 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 198a1f7..d7ff94a 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 f62ccf7..3dd8de4 100644
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,7 @@
+Fri Feb 23 15:28:39 2001  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
+
+	* decl.c (set_block): Set NAMES and BLOCKS from BLOCK.
+
 2001-02-20  Alexandre Petit-Bianco  <apbianco@redhat.com>
 
 	* parse.y (check_inner_class_access): Moved declaration of local
diff --git a/gcc/java/decl.c b/gcc/java/decl.c
index 2f7f315..18b1ec5 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. */