OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Francois-Xavier Coudert 2009-06-14 16:52:49 +00:00 committed by François-Xavier Coudert
parent 03bd2f1af7
commit fa10ccb275
4 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View 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

2
libgfortran/fmain.c
View 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__ */

2
libgfortran/libgfortran.h
View 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);

1
libgfortran/runtime/main.c
View 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. */