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

From-SVN: r142526

* runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
From-SVN: r142526
8b86bdbc · Adam Nemet · Adam Nemet · 230f3755 · 8b86bdbc · 8b86bdbc
Commit 8b86bdbc authored Dec 06, 2008 by Adam Nemet Committed by Adam Nemet Dec 06, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletions

libgfortran/ChangeLog
+4 -0

libgfortran/runtime/main.c
+2 -1

No files found.
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
+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

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