trans-decl.c (create_main_function): Don't build main decl twice.

2009-06-10  Dave Korn  <dave.korn.cygwin@gmail.com>

        * trans-decl.c (create_main_function):  Don't build main decl twice.

From-SVN: r148344
This commit is contained in:
Dave Korn 2009-06-10 12:34:10 +00:00 committed by Tobias Burnus
parent b0cde35bbd
commit f788ca8980
2 changed files with 4 additions and 1 deletions

View File

@ -1,3 +1,7 @@
2009-06-10 Dave Korn <dave.korn.cygwin@gmail.com>
* trans-decl.c (create_main_function): Don't build main decl twice.
2009-06-09 Tobias Burnus <burnus@net-b.de>
* trans-decl.c (gfc_generate_function_code): Use gfc_option.rtcheck

View File

@ -3876,7 +3876,6 @@ create_main_function (tree fndecl)
NULL_TREE);
main_identifier_node = get_identifier ("main");
ftn_main = build_decl (FUNCTION_DECL, main_identifier_node, tmp);
ftn_main = build_decl (FUNCTION_DECL, get_identifier ("main"), tmp);
DECL_EXTERNAL (ftn_main) = 0;
TREE_PUBLIC (ftn_main) = 1;
TREE_STATIC (ftn_main) = 1;