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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1377d68adf61d74bcbd1c7a72a202f292e573776..51065aee4bbaf66084f1ec3389c59954d3ef9d48 100644 (file)
--- 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 2e8ed885778d94b7be72a2b370305da479f9aa06..c59f319f7d8ef24d58925dd480f12603ce23589e 100644 (file)
--- 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 a2f3e0623d2393bc07b281bb0cac9975e2f0ebfc..fcf736a3f1d8ad366bfc4365d1b02640705c9169 100644 (file)
--- 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 3f3d4947b26c55627992da9683064b1ddc2f381d..28247ca878ff19ded324b0a81f389fe03d2d066f 100644 (file)
--- 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.  */