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

 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>

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

gcc/ch/ChangeLog

+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'.

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.

gcc/f/ChangeLog

+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

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.  */

gcc/java/ChangeLog

+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

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. */