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

utils.c (create_subprog_decl): If this is for the 'main' entry point according to the asm name...

Browse Source 
* utils.c (create_subprog_decl): If this is for the 'main' entry
        point according to the asm name, redirect main_identifier_node.

From-SVN: r136619
This commit is contained in:
Olivier Hainque 2008-06-10 13:14:15 +00:00 committed by Olivier Hainque
parent c24aadf3fa
commit 12ae9b2623
2 changed files with 17 additions and 1 deletions

5
gcc/ada/ChangeLog

@ -1,3 +1,8 @@
2008-06-10 Olivier Hainque <hainque@adacore.com>
* utils.c (create_subprog_decl): If this is for the 'main' entry
point according to the asm name, redirect main_identifier_node.
2008-06-09 Eric Botcazou <ebotcazou@adacore.com>
* decl.c (components_to_record): Adjust the packedness for the

13
gcc/ada/utils.c

@ -1989,7 +1989,18 @@ create_subprog_decl (tree subprog_name, tree asm_name,
DECL_DECLARED_INLINE_P (subprog_decl) = 1;
if (asm_name)
SET_DECL_ASSEMBLER_NAME (subprog_decl, asm_name);
{
SET_DECL_ASSEMBLER_NAME (subprog_decl, asm_name);
/* The expand_main_function circuitry expects "main_identifier_node" to
designate the DECL_NAME of the 'main' entry point, in turn expected
to be declared as the "main" function literally by default. Ada
program entry points are typically declared with a different name
within the binder generated file, exported as 'main' to satisfy the
system expectations. Redirect main_identifier_node in this case. */
if (asm_name == main_identifier_node)
main_identifier_node = DECL_NAME (subprog_decl);
}
process_attributes (subprog_decl, attr_list);