diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-19 11:01:15 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-19 11:01:15 +0000 |
| commit | d30774f57dd6a50e22cae0e57340f1e45d007901 (patch) | |
| tree | 671c20848c6885bfd24842cb7c56a2b03340bd2f /libgfortran | |
| parent | b2f8852969aa67df9ac70ce6dfd6f9ce2d3a301e (diff) | |
| download | gcc-d30774f57dd6a50e22cae0e57340f1e45d007901.tar.gz | |
* runtime/main.c (please_free_exe_path_when_done): New variable.
(store_exe_path): Initialize character buffer, and mark whether
exe_path should be free'd by the library destructor function.
(cleanup): Only free exe_path if needed.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123969 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/runtime/main.c | 7 |
2 files changed, 14 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3ce70e85365..74ba4e0f9e1 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2007-04-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + * runtime/main.c (please_free_exe_path_when_done): New variable. + (store_exe_path): Initialize character buffer, and mark whether + exe_path should be free'd by the library destructor function. + (cleanup): Only free exe_path if needed. + 2007-04-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> Tobias Burnus <burnus@net-b.de> diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index d40c6f6a7c9..e88c2abdcdb 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -97,6 +97,7 @@ get_args (int *argc, char ***argv) static const char *exe_path; +static int please_free_exe_path_when_done; /* Save the path under which the program was called, for use in the backtrace routines. */ @@ -116,15 +117,18 @@ store_exe_path (const char * argv0) if (argv0[0] == '/') { exe_path = argv0; + please_free_exe_path_when_done = 0; return; } + memset (buf, 0, sizeof (buf)); cwd = getcwd (buf, sizeof (buf)); /* exe_path will be cwd + "/" + argv[0] + "\0" */ path = malloc (strlen (cwd) + 1 + strlen (argv0) + 1); st_sprintf (path, "%s%c%s", cwd, DIR_SEPARATOR, argv0); exe_path = path; + please_free_exe_path_when_done = 1; } /* Return the full path of the executable. */ @@ -168,4 +172,7 @@ static void __attribute__((destructor)) cleanup (void) { close_units (); + + if (please_free_exe_path_when_done) + free (exe_path); } |