From fa10ccb27590ab46404d1b403217df6ea53e6ed2 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sun, 14 Jun 2009 16:52:49 +0000 Subject: [PATCH] fmain.c (main): Don't PREFIX set_args. * fmain.c (main): Don't PREFIX set_args. * libgfortran.h (set_args): Use iexport_proto. * runtime/main.c (set_args): Use iexport. From-SVN: r148472 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/fmain.c | 2 +- libgfortran/libgfortran.h | 2 +- libgfortran/runtime/main.c | 1 + 4 files changed, 9 insertions(+), 2 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 1377d68adf6..51065aee4bb 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2009-06-14 Francois-Xavier Coudert + + * fmain.c (main): Don't PREFIX set_args. + * libgfortran.h (set_args): Use iexport_proto. + * runtime/main.c (set_args): Use iexport. + 2009-06-07 Jerry DeLisle PR libfortran/40008 diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c index 2e8ed885778..c59f319f7d8 100644 --- a/libgfortran/fmain.c +++ b/libgfortran/fmain.c @@ -10,7 +10,7 @@ int main (int argc, char *argv[]) { /* Set up the runtime environment. */ - PREFIX(set_args) (argc, argv); + set_args (argc, argv); /* Call the Fortran main program. Internally this is a function called MAIN__ */ diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index a2f3e0623d2..fcf736a3f1d 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -606,7 +606,7 @@ extern void stupid_function_name_for_static_linking (void); internal_proto(stupid_function_name_for_static_linking); extern void set_args (int, char **); -export_proto(set_args); +iexport_proto(set_args); extern void get_args (int *, char ***); internal_proto(get_args); diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index 3f3d4947b26..28247ca878f 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -131,6 +131,7 @@ set_args (int argc, char **argv) argv_save = argv; store_exe_path (argv[0]); } +iexport(set_args); /* Retrieve the saved values of the command line arguments. */