procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

main.c (please_free_exe_path_when_done): New variable.

Browse source 
* 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.

From-SVN: r123969
This commit is contained in:
Francois-Xavier Coudert 2007-04-19 11:01:15 +00:00 • committed by François-Xavier Coudert
parent 8d5d586529
commit a777d6e967
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
libgfortran/ChangeLog
View file

@ -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>

7
libgfortran/runtime/main.c
View file

@ -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);
}