diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-10-21 10:11:33 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-10-21 10:11:33 +0000 |
| commit | cfbb663cd1011704022248912b904571c2f4d49e (patch) | |
| tree | b11b06dd03324cadcbf6236df9d5262732b5ca8c /gcc/ada/gcc-interface/utils.c | |
| parent | 59a05b0ca26ba2af84ccafe3422f35c0460dff1c (diff) | |
| download | gcc-cfbb663cd1011704022248912b904571c2f4d49e.zip gcc-cfbb663cd1011704022248912b904571c2f4d49e.tar.gz gcc-cfbb663cd1011704022248912b904571c2f4d49e.tar.bz2 | |
utils.c (create_subprog_decl): Do not redefine main_identifier_node.
* gcc-interfaces/utils.c (create_subprog_decl): Do not redefine
main_identifier_node.
From-SVN: r153052
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index a8225b0..b1e2e58 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -1866,9 +1866,9 @@ create_subprog_decl (tree subprog_name, tree asm_name, 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. */ + system expectations. Force main_identifier_node in this case. */ if (asm_name == main_identifier_node) - main_identifier_node = DECL_NAME (subprog_decl); + DECL_NAME (subprog_decl) = main_identifier_node; } process_attributes (subprog_decl, attr_list); |