Revert part of r147883 that breaks ABI

From-SVN: r147915

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d4a34c5..ebfdf06 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-05-27  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       PR fortran/39178
+       * runtime/main.c (store_exe_path): Remove static attribute.
+       * libgfortran.h: Add back store_exe_path prototype.
+
 2009-05-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR libfortran/40187

diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h
index 85b454d..3591fa9 100644 (file)
--- a/libgfortran/libgfortran.h
+++ b/libgfortran/libgfortran.h
@@ -610,6 +610,9 @@ export_proto(set_args);
 extern void get_args (int *, char ***);
 internal_proto(get_args);
 
+extern void store_exe_path (const char *);
+export_proto(store_exe_path);
+
 extern char * full_exe_path (void);
 internal_proto(full_exe_path);
 

diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index 6df2775..3f3d494 100644 (file)
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -74,7 +74,7 @@ static int please_free_exe_path_when_done;
 
 /* Save the path under which the program was called, for use in the
    backtrace routines.  */
-static void
+void
 store_exe_path (const char * argv0)
 {
 #ifndef PATH_MAX