From 8b86bdbc02cddb4d8948380d46add28ea979f289 Mon Sep 17 00:00:00 2001 From: Adam Nemet Date: Sat, 6 Dec 2008 18:07:43 +0000 Subject: [PATCH] * runtime/main.c (store_exe_path): Don't crash if argv0 is NULL. From-SVN: r142526 --- libgfortran/ChangeLog | 4 ++++ libgfortran/runtime/main.c | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 7aba0260ccd..3fc0ca82288 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2008-12-06 Adam Nemet + + * runtime/main.c (store_exe_path): Don't crash if argv0 is NULL. + 2008-12-05 Jerry DeLisle PR libfortran/38291 diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index 71b481a7deb..947b3985238 100644 --- 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; -- 2.30.2