From patchwork Fri Mar 1 16:45:28 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tobias Burnus X-Patchwork-Id: 224409 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 CA5C02C007E for ; Sat, 2 Mar 2013 03:45:55 +1100 (EST) Comment: DKIM? See http://www.dkim.org DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=gcc.gnu.org; s=default; x=1362761157; h=Comment: DomainKey-Signature:Received:Received:Received:Received: Message-ID:Date:From:User-Agent:MIME-Version:To:Subject: Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe: List-Archive:List-Post:List-Help:Sender:Delivered-To; bh=Jn6/yxa 6UwhcwaY/x4MD3aqbJcE=; b=oIlEU3xqOmnpXcPcjUcmtRjkZgvz2sBl8tI+Ys7 SgLpN6ahysrFeVhzvUt6FycqS5UQA6UKJh+7CFVTA7vLHIgVP/kVoQS8HTjyIsLR 2T6GRQVgd56tChca8L0PsmjpZbFbHhhjyWrI2FwMjawsWPqAB4kbac5FwN9mKCWu pbn0= Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=default; d=gcc.gnu.org; h=Received:Received:X-SWARE-Spam-Status:X-Spam-Check-By:Received:Received:Message-ID:Date:From:User-Agent:MIME-Version:To:Subject:Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=r8WXkN2/Q5C0D6BzBuI3P5YaXwHopBsD69agyZrggsIIQS6ShISebBZTtr/4yD m7F5AaysuQzSlkbkYW0q9YrDovmXWrauR3ETd0Q0+bKBEbJdgJlQ7U+pPUd2TtUM zJC5YDwdkdc0vKYG37AnGTF9Q5YcpNJJDt+vHY82HAtrc=; Received: (qmail 31212 invoked by alias); 1 Mar 2013 16:45:41 -0000 Received: (qmail 31188 invoked by uid 22791); 1 Mar 2013 16:45:38 -0000 X-SWARE-Spam-Status: No, hits=-2.2 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE X-Spam-Check-By: sourceware.org Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 01 Mar 2013 16:45:31 +0000 Received: from archimedes.net-b.de (port-92-195-200-211.dynamic.qsc.de [92.195.200.211]) by mx02.qsc.de (Postfix) with ESMTP id 0FB9424B8B; Fri, 1 Mar 2013 17:45:28 +0100 (CET) Message-ID: <5130DB28.1090700@net-b.de> Date: Fri, 01 Mar 2013 17:45:28 +0100 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:17.0) Gecko/20130215 Thunderbird/17.0.3 MIME-Version: 1.0 To: gcc patches , gfortran Subject: [Patch, Fortran, committed] Fix another two memory leaks 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 Committed after regtesting as Rev. 196387. (I forgot to mention that it fixes PR56491) http://gcc.gnu.org/ml/gcc-cvs/2013-03/msg00024.html Tobias Index: gcc/fortran/ChangeLog =================================================================== --- gcc/fortran/ChangeLog (Revision 196386) +++ gcc/fortran/ChangeLog (Arbeitskopie) @@ -1,5 +1,10 @@ 2013-03-01 Tobias Burnus + * iresolve.c (resolve_bound): Use gfc_get_string instead of xstrdup. + * symbol.c (free_components): Free proc-pointer components. + +2013-03-01 Tobias Burnus + * trans-decl.c (gfc_trans_deferred_vars): Free expr after use. * trans-io.c (build_dt): Ditto. Index: gcc/fortran/iresolve.c =================================================================== --- gcc/fortran/iresolve.c (Revision 196386) +++ gcc/fortran/iresolve.c (Arbeitskopie) @@ -140,7 +140,7 @@ resolve_bound (gfc_expr *f, gfc_expr *array, gfc_e } } - f->value.function.name = xstrdup (name); + f->value.function.name = gfc_get_string (name); } Index: gcc/fortran/symbol.c =================================================================== --- gcc/fortran/symbol.c (Revision 196386) +++ gcc/fortran/symbol.c (Arbeitskopie) @@ -2076,6 +2076,7 @@ free_components (gfc_component *p) gfc_free_array_spec (p->as); gfc_free_expr (p->initializer); + free (p->tb); free (p); }