From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Sun, 14 Jun 2009 16:52:49 +0000 (+0000)
Subject: fmain.c (main): Don't PREFIX set_args.
X-Git-Tag: releases/gcc-4.5.0~5218
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=fa10ccb27590ab46404d1b403217df6ea53e6ed2;p=thirdparty%2Fgcc.git

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 1377d68adf61..51065aee4bba 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 2e8ed885778d..c59f319f7d8e 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 a2f3e0623d23..fcf736a3f1d8 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 3f3d4947b26c..28247ca878ff 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.  */