* runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 7aba026..3fc0ca8 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-12-06  Adam Nemet  <anemet@caviumnetworks.com>
+
+       * runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
+
 2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libfortran/38291

diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c
index 71b481a..947b398 100644 (file)
--- a/libgfortran/runtime/main.c
+++ b/libgfortran/runtime/main.c
@@ -111,7 +111,8 @@ store_exe_path (const char * argv0)
 
   char buf[PATH_MAX], *cwd, *path;
 
-  if (argv0[0] == '/')
+  /* On the simulator argv is not set.  */
+  if (argv0 == NULL || argv0[0] == '/')
     {
       exe_path = argv0;
       please_free_exe_path_when_done = 0;