From patchwork Fri Nov 11 16:33:39 2011 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Janne Blomqvist X-Patchwork-Id: 125210 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id ACE8CB70C3 for ; Sat, 12 Nov 2011 03:34:08 +1100 (EST) Received: (qmail 20921 invoked by alias); 11 Nov 2011 16:34:00 -0000 Received: (qmail 20899 invoked by uid 22791); 11 Nov 2011 16:33:58 -0000 X-SWARE-Spam-Status: No, hits=-2.4 required=5.0 tests=AWL, BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, FREEMAIL_FROM, RCVD_IN_DNSWL_LOW X-Spam-Check-By: sourceware.org Received: from mail-fx0-f47.google.com (HELO mail-fx0-f47.google.com) (209.85.161.47) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 11 Nov 2011 16:33:41 +0000 Received: by faat2 with SMTP id t2so4764606faa.20 for ; Fri, 11 Nov 2011 08:33:39 -0800 (PST) MIME-Version: 1.0 Received: by 10.152.103.211 with SMTP id fy19mr7043515lab.39.1321029219686; Fri, 11 Nov 2011 08:33:39 -0800 (PST) Received: by 10.152.36.73 with HTTP; Fri, 11 Nov 2011 08:33:39 -0800 (PST) Date: Fri, 11 Nov 2011 18:33:39 +0200 Message-ID: Subject: [Patch, libfortran] PR 51090 Check getenv result before proceeding From: Janne Blomqvist To: Fortran List , GCC Patches Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Hi, committed the patch below as obvious. 2011-11-11 Janne Blomqvist PR libfortran/51090 * runtime/main.c (find_addr2line): NULL check before proceeding. Index: main.c =================================================================== --- main.c (revision 181287) +++ main.c (working copy) @@ -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;