diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-26 21:19:57 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-05-26 21:19:57 +0000 |
| commit | 7257a5d24fa857f8d295f04b43afd498905efb72 (patch) | |
| tree | 43a6fbb9dd54816b1c1a284ffc7fba3adac67337 /gcc/fortran/gfortranspec.c | |
| parent | 645899f229abd036a1eaba6b7089a8767517146c (diff) | |
| download | gcc-7257a5d24fa857f8d295f04b43afd498905efb72.tar.gz | |
fortran/
2009-05-26 Tobias Burnus <burnus@net-b.de>
PR fortran/39178
* gfortranspec.c (lang_specific_driver): Stop linking
libgfortranbegin.
* trans-decl.c (gfc_build_builtin_function_decls): Stop
making MAIN__ publicly visible.
(gfc_build_builtin_function_decls): Add
gfor_fndecl_set_args.
(create_main_function) New function.
(gfc_generate_function_code): Use it.
libgfortran/
2009-05-26 Tobias Burnus <burnus@net-b.de>
PR fortran/39178
* runtime/main.c (store_exe_path): Make static
and multiple-times callable.
(set_args): Call store_exe_path.
* libgfortran.h: Remove store_exe_path prototype.
* fmain.c (main): Remove store_exe_path call.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147883 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/gfortranspec.c')
| -rw-r--r-- | gcc/fortran/gfortranspec.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/gcc/fortran/gfortranspec.c b/gcc/fortran/gfortranspec.c index 0e5e7913e97..a6f9b42b474 100644 --- a/gcc/fortran/gfortranspec.c +++ b/gcc/fortran/gfortranspec.c @@ -58,10 +58,6 @@ along with GCC; see the file COPYING3. If not see #define MATH_LIBRARY "-lm" #endif -#ifndef FORTRAN_INIT -#define FORTRAN_INIT "-lgfortranbegin" -#endif - #ifndef FORTRAN_LIBRARY #define FORTRAN_LIBRARY "-lgfortran" #endif @@ -278,10 +274,6 @@ lang_specific_driver (int *in_argc, const char *const **in_argv, 2 => last two args were -l<library> -lm. */ int saw_library = 0; - /* 0 => initial/reset state - 1 => FORTRAN_INIT linked in */ - int use_init = 0; - /* By default, we throw on the math library if we have one. */ int need_math = (MATH_LIBRARY[0] != '\0'); @@ -505,12 +497,6 @@ For more information about these matters, see the file named COPYING\n\n")); saw_library = 2; /* -l<library> -lm. */ else { - if (0 == use_init) - { - append_arg (FORTRAN_INIT); - use_init = 1; - } - ADD_ARG_LIBGFORTRAN (FORTRAN_LIBRARY); } } @@ -540,11 +526,6 @@ For more information about these matters, see the file named COPYING\n\n")); switch (saw_library) { case 0: - if (0 == use_init) - { - append_arg (FORTRAN_INIT); - use_init = 1; - } ADD_ARG_LIBGFORTRAN (library); /* Fall through. */ |