From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 5 Dec 2012 15:45:32 +0000 (+0100)
Subject: resolve.c (generate_component_assignments): Fix memleak.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d07e82f92b9ec4272577e99f919dc406b44fce7a;p=gcc.git

resolve.c (generate_component_assignments): Fix memleak.

2012-12-05  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (generate_component_assignments): Fix memleak.

From-SVN: r194225
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 939888ef01d..344c4e4ba18 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-05  Tobias Burnus  <burnus@net-b.de>
+
+	* resolve.c (generate_component_assignments): Fix memleak.
+
 2012-12-03  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/55548
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 69646dee748..1c7b5fb64e1 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -9857,7 +9857,6 @@ generate_component_assignments (gfc_code **code, gfc_namespace *ns)
 	continue;
 
       /* Make an assigment for this component.  */
-      this_code = gfc_get_code ();
       this_code = build_assignment (EXEC_ASSIGN,
 				    (*code)->expr1, (*code)->expr2,
 				    comp1, comp2, (*code)->loc);