diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-05-26 23:19:57 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-05-26 23:19:57 +0200 |
| commit | 092231a8d635d601a3d05a284f279286f59cab9e (patch) | |
| tree | 43a6fbb9dd54816b1c1a284ffc7fba3adac67337 /libgfortran/fmain.c | |
| parent | 9a0bab0be682be2aaee5f1146518c4d94d44ac8e (diff) | |
| download | gcc-092231a8d635d601a3d05a284f279286f59cab9e.zip gcc-092231a8d635d601a3d05a284f279286f59cab9e.tar.gz gcc-092231a8d635d601a3d05a284f279286f59cab9e.tar.bz2 | |
re PR fortran/39178 (Generate main() rather than using a main in libgfortran/fmain.c)
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.
From-SVN: r147883
Diffstat (limited to 'libgfortran/fmain.c')
| -rw-r--r-- | libgfortran/fmain.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c index 1d6b45e..2e8ed88 100644 --- a/libgfortran/fmain.c +++ b/libgfortran/fmain.c @@ -9,12 +9,8 @@ void MAIN__ (void); int main (int argc, char *argv[]) { - /* Store the path of the executable file. */ - store_exe_path (argv[0]); - /* Set up the runtime environment. */ - set_args (argc, argv); - + PREFIX(set_args) (argc, argv); /* Call the Fortran main program. Internally this is a function called MAIN__ */ |