From ee66e604c3804ffb22c405972a2d0009bc10b969 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Fri, 11 Nov 2011 18:31:47 +0200 Subject: PR 51090 Check that getenv result != NULL before proceeding. 2011-11-11 Janne Blomqvist PR libfortran/51090 * runtime/main.c (find_addr2line): NULL check before proceeding. From-SVN: r181288 --- libgfortran/ChangeLog | 5 +++++ libgfortran/runtime/main.c | 2 ++ 2 files changed, 7 insertions(+) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 00e65ab..6c253b0 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2011-11-11 Janne Blomqvist + + PR libfortran/51090 + * runtime/main.c (find_addr2line): NULL check before proceeding. + 2011-11-10 Janne Blomqvist * intrinsics/cpu_time.c (__cpu_time_1): Don't force inlining. diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index bc8dab4..6ce5388 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -149,6 +149,8 @@ find_addr2line (void) #ifdef HAVE_ACCESS #define A2L_LEN 10 char *path = getenv ("PATH"); + if (!path) + return; size_t n = strlen (path); char ap[n + 1 + A2L_LEN]; size_t ai = 0; -- cgit v1.1