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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index c5e0bb3d30c80d920d35fe69c35112efec20fdc6..ddce687a3bba40276ffba4595cdbf743d7b37d9c 100644 (file)
--- 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 0f104a44cf0de5eaf8979dfb269f8dcd4e9bf91a..cd6929f8576d8add0cf51f2f1e4b1330233a5b5f 100644 (file)
--- 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));
 }
 \f
 void

diff --git a/gcc/ch/ChangeLog b/gcc/ch/ChangeLog
index c5283955ce421696634c8ae3d3c4e23dc6b29609..315713d3ebe1a210cb7d33fa0e79cdb3e46adad2 100644 (file)
--- 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 11a05e00218615a32a3fc7d5698c38ef09efc0b0..6cdec6c9bee9e0860a9770305ac77391ae7186ec 100644 (file)
--- 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));
 }
 \f
 /* Record a decl-node X as belonging to the current lexical scope.

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 99634c31ae32a31d8ebd090ede27720b75a34213..77eb2ed8c50b7d3d276fa1e2ad8eeafcff86fe41 100644 (file)
--- 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 198a1f719d23ae14403462f8589818a15cad30ce..d7ff94a4ca7e6f0528cbcbd94b598fc5b157ffd8 100644 (file)
--- 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 f62ccf7a2817ca7c95dd577bf4da5b5749de4e4b..3dd8de4ebabfe7d17fd1ae33f2d6388d006b925a 100644 (file)
--- 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 2f7f31583e0d344fabacfd8fc68273437d83d92f..18b1ec54ecd587a82de4adb99b6e8c5953483b40 100644 (file)
--- 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. */