mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 14:25:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

utils.c (gnat_pushdecl): Remove test for PARM_DECLs.

Browse Source 
* gcc-interface/utils.c (gnat_pushdecl): Remove test for PARM_DECLs.
	Attach fake PARM_DECLs to the topmost block of the function.

From-SVN: r163651
This commit is contained in:
Eric Botcazou 2010-08-30 16:30:41 +00:00 committed by Eric Botcazou
parent fc26dab30f
commit bd9c7fb909
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2010-08-30 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/utils.c (gnat_pushdecl): Remove test for PARM_DECLs.
Attach fake PARM_DECLs to the topmost block of the function.
2010-08-30 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/trans.c (call_to_gnu): Also force the return slot opt

21
gcc/ada/gcc-interface/utils.c
View File

@ -418,11 +418,8 @@ gnat_poplevel (void)
void
gnat_pushdecl (tree decl, Node_Id gnat_node)
{
/* If this decl is public external or at toplevel, there is no context.
But PARM_DECLs always go in the level of its function. */
if (TREE_CODE (decl) != PARM_DECL
&& ((DECL_EXTERNAL (decl) && TREE_PUBLIC (decl))
|| global_bindings_p ()))
/* If this decl is public external or at toplevel, there is no context. */
if ((TREE_PUBLIC (decl) && DECL_EXTERNAL (decl)) || global_bindings_p ())
DECL_CONTEXT (decl) = 0;
else
{
@ -461,8 +458,14 @@ gnat_pushdecl (tree decl, Node_Id gnat_node)
}
else
{
DECL_CHAIN (decl) = BLOCK_VARS (current_binding_level->block);
BLOCK_VARS (current_binding_level->block) = decl;
tree block;
/* Fake PARM_DECLs go into the topmost block of the function. */
if (TREE_CODE (decl) == PARM_DECL)
block = BLOCK_SUPERCONTEXT (current_binding_level->block);
else
block = current_binding_level->block;
DECL_CHAIN (decl) = BLOCK_VARS (block);
BLOCK_VARS (block) = decl;
}
}
@ -1878,9 +1881,7 @@ end_subprog_body (tree body)
{
tree fndecl = current_function_decl;
/* Mark the BLOCK for this level as being for this function and pop the
level. Since the vars in it are the parameters, clear them. */
BLOCK_VARS (current_binding_level->block) = NULL_TREE;
/* Attach the BLOCK for this level to the function and pop the level. */
BLOCK_SUPERCONTEXT (current_binding_level->block) = fndecl;
DECL_INITIAL (fndecl) = current_binding_level->block;
gnat_poplevel ();