diff options
| author | Adam Nemet <anemet@caviumnetworks.com> | 2008-12-06 18:07:43 +0000 |
|---|---|---|
| committer | Adam Nemet <anemet@caviumnetworks.com> | 2008-12-06 18:07:43 +0000 |
| commit | 187bae78502a87b0677a8c1d2f17a9f809c09d30 (patch) | |
| tree | 4ddede01a23b706662acf3101fcc2838b4975280 | |
| parent | 35531777a0909c5cb89188115e6ae3c115581f36 (diff) | |
* runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@142526 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/runtime/main.c | 3 |
2 files changed, 6 insertions, 1 deletions
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 <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 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; |