git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages 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> 2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/40008 PR libfortran/40008

2
libgfortran/fmain.c
View File

@ -10,7 +10,7 @@ int
main (int argc, char *argv[]) main (int argc, char *argv[])
{ {
/* Set up the runtime environment. */ /* Set up the runtime environment. */
PREFIX(set_args) (argc, argv); set_args (argc, argv);
/* Call the Fortran main program. Internally this is a function /* Call the Fortran main program. Internally this is a function
called MAIN__ */ 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); internal_proto(stupid_function_name_for_static_linking);
extern void set_args (int, char **); extern void set_args (int, char **);
export_proto(set_args); iexport_proto(set_args);
extern void get_args (int *, char ***); extern void get_args (int *, char ***);
internal_proto(get_args); internal_proto(get_args);

1
libgfortran/runtime/main.c
View File

@ -131,6 +131,7 @@ set_args (int argc, char **argv)
argv_save = argv; argv_save = argv;
store_exe_path (argv[0]); store_exe_path (argv[0]);
} }
iexport(set_args);
/* Retrieve the saved values of the command line arguments. */ /* Retrieve the saved values of the command line arguments. */