From c1df0e1ac5fa4fae5dabbace846c1aefeca3e4a9 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Wed, 27 May 2009 18:22:34 +0300 Subject: [PATCH] Revert part of r147883 that breaks ABI From-SVN: r147915 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/libgfortran.h | 3 +++ libgfortran/runtime/main.c | 2 +- 3 files changed, 10 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index d4a34c52475..ebfdf068a91 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2009-05-27 Janne Blomqvist + + 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 PR libfortran/40187 diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 85b454d1c32..3591fa9c279 100644 --- 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 6df2775d26e..3f3d4947b26 100644 --- 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