mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2025-01-01 16:34:06 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

PR 51803 Handle getcwd failure and lack of the function better.

Browse Source 
2012-01-11  Janne Blomqvist  <jb@gcc.gnu.org>
            Mike Stump  <mikestump@comcast.net>
	PR libfortran/51803
	* runtime/main.c (store_exe_path): Handle getcwd failure and lack
	of the function better.

Co-Authored-By: Mike Stump <mikestump@comcast.net>

From-SVN: r183090
This commit is contained in:
Janne Blomqvist 2012-01-11 09:34:16 +02:00
parent ef1ed13d9a
commit 8763317661
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2012-01-11 Janne Blomqvist <jb@gcc.gnu.org>
Mike Stump <mikestump@comcast.net>
PR libfortran/51803
* runtime/main.c (store_exe_path): Handle getcwd failure and lack
of the function better.
2012-01-10 Tobias Burnus <burnus@net-b.de>
PR fortran/51197

4
libgfortran/runtime/main.c
View File

@ -116,8 +116,10 @@ store_exe_path (const char * argv0)
memset (buf, 0, sizeof (buf));
#ifdef HAVE_GETCWD
cwd = getcwd (buf, sizeof (buf));
if (!cwd)
cwd = ".";
#else
cwd = "";
cwd = ".";
#endif
/* exe_path will be cwd + "/" + argv[0] + "\0". This will not work