OSDN Git Service

PR 51803 Handle getcwd failure and lack of the function better.
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 11 Jan 2012 07:34:16 +0000 (07:34 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 11 Jan 2012 07:34:16 +0000 (07:34 +0000)
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183090 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/runtime/main.c

index e82d442..3e27ed9 100644 (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
index 11b535a..1cad5ef 100644 (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