Fix memory leaks.

2010-01-06  Sebastian Pop  <sebastian.pop@amd.com>

	* graphite-clast-to-gimple.c (save_clast_name_index): Free slot
	before allocating a new one.
	(copy_renames): Check that slot is not NULL.
	(mark_bb_with_pbb): Same.
	(compute_cloog_iv_types_1): Same.
	* graphite-interchange.c (lst_perfect_nestify): Free the before,
	nest, and after LSTs.
	(lst_try_interchange_loops): Same.

From-SVN: r155702

diff --git a/gcc/ChangeLog.graphite b/gcc/ChangeLog.graphite
index 882dc39..780f23e 100644 (file)
--- a/gcc/ChangeLog.graphite
+++ b/gcc/ChangeLog.graphite
@@ -1,3 +1,14 @@
+2010-01-06  Sebastian Pop  <sebastian.pop@amd.com>
+
+       * graphite-clast-to-gimple.c (save_clast_name_index): Free slot
+       before allocating a new one.
+       (copy_renames): Check that slot is not NULL.
+       (mark_bb_with_pbb): Same.
+       (compute_cloog_iv_types_1): Same.
+       * graphite-interchange.c (lst_perfect_nestify): Free the before,
+       nest, and after LSTs.
+       (lst_try_interchange_loops): Same.
+
 2010-01-05  Sebastian Pop  <sebastian.pop@amd.com>
 
        PR middle-end/42178

diff --git a/gcc/graphite-clast-to-gimple.c b/gcc/graphite-clast-to-gimple.c
index 93138b6..4109461 100644 (file)
--- a/gcc/graphite-clast-to-gimple.c
+++ b/gcc/graphite-clast-to-gimple.c
@@ -117,7 +117,12 @@ save_clast_name_index (htab_t index_table, const char *name, int index)
   slot = htab_find_slot (index_table, &tmp, INSERT);
 
   if (slot)
-    *slot = new_clast_name_index (name, index);
+    {
+      if (*slot)
+       free (*slot);
+
+      *slot = new_clast_name_index (name, index);
+    }
 }
 
 /* Print to stderr the element ELT.  */
@@ -629,7 +634,7 @@ copy_renames (void **slot, void *s)
   tmp.old_name = old_name;
   x = htab_find_slot (res, &tmp, INSERT);
 
-  if (!*x)
+  if (x && !*x)
     *x = new_rename_map_elt (old_name, expr);
 
   return 1;
@@ -660,7 +665,7 @@ mark_bb_with_pbb (poly_bb_p pbb, basic_block bb, htab_t bb_pbb_mapping)
   tmp.bb = bb;
   x = htab_find_slot (bb_pbb_mapping, &tmp, INSERT);
 
-  if (!*x)
+  if (x && !*x)
     *x = new_bb_pbb_def (bb, pbb);
 }
 
@@ -1026,7 +1031,7 @@ compute_cloog_iv_types_1 (poly_bb_p pbb, struct clast_user_stmt *user_stmt)
 
       slot = htab_find_slot (GBB_CLOOG_IV_TYPES (gbb), &tmp, INSERT);
 
-      if (!*slot)
+      if (slot && !*slot)
        {
          tree oldiv = pbb_to_depth_to_oldiv (pbb, index);
          tree type = oldiv ? TREE_TYPE (oldiv) : integer_type_node;

diff --git a/gcc/graphite-interchange.c b/gcc/graphite-interchange.c
index a0f84a7..7ec7fea 100644 (file)
--- a/gcc/graphite-interchange.c
+++ b/gcc/graphite-interchange.c
@@ -587,11 +587,20 @@ lst_perfect_nestify (lst_p loop1, lst_p loop2, lst_p *before,
   lst_remove_all_before_excluding_pbb (*nest, last, false);
 
   if (lst_empty_p (*before))
-    *before = NULL;
+    {
+      free_lst (*before);
+      *before = NULL;
+    }
   if (lst_empty_p (*after))
-    *after = NULL;
+    {
+      free_lst (*after);
+      *after = NULL;
+    }
   if (lst_empty_p (*nest))
-    *nest = NULL;
+    {
+      free_lst (*nest);
+      *nest = NULL;
+    }
 }
 
 /* Try to interchange LOOP1 with LOOP2 for all the statements of the
@@ -646,6 +655,9 @@ lst_try_interchange_loops (scop_p scop, lst_p loop1, lst_p loop2)
     }
 
   /* Undo the transform.  */
+  free_lst (before);
+  free_lst (nest);
+  free_lst (after);
   lst_apply_interchange (loop2, depth2, depth1);
   return false;
 }