OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

c-common.c (finish_fname_decls): Put the DECL_STMTs inside the outermost scope.

Browse Source 
* c-common.c (finish_fname_decls): Put the DECL_STMTs inside the
        outermost scope.
        * c-decl.c (c_make_fname_decl): Push the decls there, too.
cp/
        * decl.c (cp_make_fname_decl): Push the decls inside the
        outermost scope.

From-SVN: r60848
This commit is contained in:
Jason Merrill 2003-01-03 14:29:51 -05:00 committed by Jason Merrill
parent 9c91c80bb7
commit 6cce57b0d0
5 changed files with 46 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ChangeLog
View File

@ -1,3 +1,9 @@
2003-01-02 Jason Merrill <jason@redhat.com>
* c-common.c (finish_fname_decls): Put the DECL_STMTs inside the
outermost scope.
* c-decl.c (c_make_fname_decl): Push the decls there, too.
2003-01-03 Kazu Hirata <kazu@cs.umass.edu>
* config/h8300/h8300-protos.h: Add a prototype for

19
gcc/c-common.c
View File

@ -1050,13 +1050,18 @@ finish_fname_decls ()
if (body)
{
/* They were called into existence, so add to statement tree. */
body = chainon (body,
TREE_CHAIN (DECL_SAVED_TREE (current_function_decl)));
body = build_stmt (COMPOUND_STMT, body);
/* They were called into existence, so add to statement tree. Add
the DECL_STMTs inside the outermost scope. */
tree *p = &DECL_SAVED_TREE (current_function_decl);
/* Skip the dummy EXPR_STMT and any EH_SPEC_BLOCK. */
while (TREE_CODE (*p) != COMPOUND_STMT)
p = &TREE_CHAIN (*p);
p = &COMPOUND_BODY (*p);
if (TREE_CODE (*p) == SCOPE_STMT)
p = &TREE_CHAIN (*p);
COMPOUND_STMT_NO_SCOPE (body) = 1;
TREE_CHAIN (DECL_SAVED_TREE (current_function_decl)) = body;
body = chainon (body, *p);
*p = body;
}
for (ix = 0; fname_vars[ix].decl; ix++)
@ -1079,7 +1084,7 @@ finish_fname_decls ()
saved_function_name_decls = stack;
}
/* Return the text name of the current function, suitable prettified
/* Return the text name of the current function, suitably prettified
by PRETTY_P. */
const char *

12
gcc/c-decl.c
View File

@ -2546,6 +2546,18 @@ c_make_fname_decl (id, type_dep)
TREE_USED (decl) = 1;
if (current_function_decl)
{
/* Add the decls to the outermost block. */
struct binding_level *b = current_binding_level;
struct binding_level *old = b;
while (b->level_chain->parm_flag == 0)
b = b->level_chain;
current_binding_level = b;
pushdecl (decl);
current_binding_level = old;
}
finish_decl (decl, init, NULL_TREE);
return decl;

5
gcc/cp/ChangeLog
View File

@ -1,3 +1,8 @@
2003-01-02 Jason Merrill <jason@redhat.com>
* decl.c (cp_make_fname_decl): Push the decls inside the
outermost scope.
2003-01-03 Nathan Sidwell <nathan@codesourcery.com>
PR c++/45, c++/3784

10
gcc/cp/decl.c
View File

@ -6656,7 +6656,7 @@ cp_make_fname_decl (id, type_dep)
tree init = cp_fname_init (name);
tree decl = build_decl (VAR_DECL, id, TREE_TYPE (init));
/* As we don't push the decl here, we must set the context. */
/* As we're using pushdecl_with_scope, we must set the context. */
DECL_CONTEXT (decl) = current_function_decl;
DECL_PRETTY_FUNCTION_P (decl) = type_dep;
@ -6667,6 +6667,14 @@ cp_make_fname_decl (id, type_dep)
TREE_USED (decl) = 1;
if (current_function_decl)
{
struct cp_binding_level *b = current_binding_level;
while (b->level_chain->parm_flag == 0)
b = b->level_chain;
pushdecl_with_scope (decl, b);
}
cp_finish_decl (decl, init, NULL_TREE, LOOKUP_ONLYCONVERTING);
return decl;