re PR fortran/54384 (gfortran memory leaks)

2012-08-27  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54384
        * dependency.c (check_section_vs_section): Use gfc_free_expr
        instead of free.
        * trans-intrinsic.c (conv_generic_with_optional_char_arg): Use
        gfc_free_symbol instead of free.

From-SVN: r190728

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index c3e618567228c37ac8894aa35392dd7c182c8be5..d384d388232bea44fe3cdd9eb4ecb4a7301457cf 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,11 @@
+2012-08-27  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/54384
+       * dependency.c (check_section_vs_section): Use gfc_free_expr
+       instead of free.
+       * trans-intrinsic.c (conv_generic_with_optional_char_arg): Use
+       gfc_free_symbol instead of free.
+
 2012-08-27  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/54384

diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c
index ea1245dbb0b702b06649d9c04e5fa14f38d338d5..165ab4f0abbdac3be42c72697442f9f54238f2d9 100644 (file)
--- a/gcc/fortran/dependency.c
+++ b/gcc/fortran/dependency.c
@@ -1220,7 +1220,7 @@ check_section_vs_section (gfc_array_ref *l_ar, gfc_array_ref *r_ar, int n)
   else
     start_comparison = -2;
       
-  free (one_expr);
+  gfc_free_expr (one_expr);
 
   /* Determine LHS upper and lower bounds.  */
   if (l_dir == 1)

diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c
index 5160cf0c0f12759bd6e6efa8a09a820ad2788d53..add4baaa3118598b2beb8c02ea56d0f97e82c8cf 100644 (file)
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@@ -4525,7 +4525,7 @@ conv_generic_with_optional_char_arg (gfc_se* se, gfc_expr* expr,
   sym = gfc_get_symbol_for_expr (expr);
   gfc_conv_procedure_call (se, sym, expr->value.function.actual, expr,
                          append_args);
-  free (sym);
+  gfc_free_symbol (sym);
 }