From 9b58f7398639e201117b4f8131d0d2c92f4c6a52 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Fri, 23 Feb 2001 20:38:58 +0000 Subject: 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/ch/ChangeLog | 4 ++++ gcc/ch/decl.c | 3 +++ 2 files changed, 7 insertions(+) (limited to 'gcc/ch') 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 + + * 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 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. -- cgit v1.1