OSDN Git Service

* fmain.c (main): Don't PREFIX set_args.
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 14 Jun 2009 16:52:49 +0000 (16:52 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 14 Jun 2009 16:52:49 +0000 (16:52 +0000)
        * libgfortran.h (set_args): Use iexport_proto.
        * runtime/main.c (set_args): Use iexport.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148472 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/fmain.c
libgfortran/libgfortran.h
libgfortran/runtime/main.c

index 1377d68..51065ae 100644 (file)
@@ -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
index 2e8ed88..c59f319 100644 (file)
@@ -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__ */
index a2f3e06..fcf736a 100644 (file)
@@ -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);
index 3f3d494..28247ca 100644 (file)
@@ -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.  */