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 939888ef01dc5a459fe071aa3d2e2030da3f42e1..344c4e4ba18a10e8f561b96f391c88deeb06aedd 100644 (file)
--- 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 69646dee748d940815196ff2884cc2cfae55050c..1c7b5fb64e13000614993a1f97697c8fca5c14b0 100644 (file)
--- 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);