OSDN Git Service

PR 51090 Check that getenv result != NULL before proceeding.
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 11 Nov 2011 16:31:47 +0000 (16:31 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 11 Nov 2011 16:31:47 +0000 (16:31 +0000)
2011-11-11  Janne Blomqvist  <jb@gcc.gnu.org>

PR libfortran/51090
* runtime/main.c (find_addr2line): NULL check before proceeding.

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

libgfortran/ChangeLog
libgfortran/runtime/main.c

index 00e65ab..6c253b0 100644 (file)
@@ -1,3 +1,8 @@
+2011-11-11  Janne Blomqvist  <jb@gcc.gnu.org>
+
+       PR libfortran/51090
+       * runtime/main.c (find_addr2line): NULL check before proceeding.
+
 2011-11-10  Janne Blomqvist  <jb@gcc.gnu.org>
 
        * intrinsics/cpu_time.c (__cpu_time_1): Don't force inlining.
index bc8dab4..6ce5388 100644 (file)
@@ -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;