diff options
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/fmain.c | 2 | ||||
| -rw-r--r-- | libgfortran/libgfortran.h | 2 | ||||
| -rw-r--r-- | libgfortran/runtime/main.c | 1 |
4 files changed, 9 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 1377d68..51065ae 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2009-06-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + * 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 <jvdelisle@gcc.gnu.org> PR libfortran/40008 diff --git a/libgfortran/fmain.c b/libgfortran/fmain.c index 2e8ed88..c59f319 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 a2f3e06..fcf736a 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 3f3d494..28247ca 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. */ |