Changeset 3dfb74 in git for kernel

Timestamp:

Nov 9, 2009, 7:57:03 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')

Children:

2cc33cb332d892eb103308dfdb232467896c09ad

Parents:

fd760f7e6161b8bb84a74b7b8c42ac252cbeb31b

Message:

*hannes: memory leaks fixed (part of track 183

git-svn-id: file:///usr/local/Singular/svn/trunk@12261 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• kernel/fast_maps.cc (modified) (7 diffs)

kernel/fast_maps.cc

@@ -37 +37 @@
   int i, j;
   unsigned long e_i, e_j;
-  poly m_i, map_j = p_Init(map_r);
+  poly m_i=NULL;
+  poly map_j = p_Init(map_r);
 
   for (i=1; i <= n; i++)
@@ -81 +82 @@
     p_LmFree(max_map_i, map_r);
   }
+  for (i=0; i<IDELEMS(map_id); i++)
+  {
+    p_Delete(&max_map_monomials[i], map_r);
+  }
+  omFreeSize(max_map_monomials,IDELEMS(map_id)*sizeof(poly));
+
   return max;
 }
@@ -164 +171 @@
       }
     }
+    //if (mp->next!=NULL) maMonomial_Destroy(mp->next,dest_r);
   }
   omFreeBin(mp, mapolyBin);
@@ -269 +277 @@
 }
 
-
 void maMap_CreateRings(ideal map_id, ring map_r,
                        ideal image_id, ring image_r,
@@ -322 +329 @@
       sBucketDestroyAdd(m_id->buckets[i], &(res->m[i]), &l);
   }
+  omFreeSize(m_id->buckets,m_id->n*sizeof(sBucket_pt));
   omFree(m_id);
   return res;
@@ -403 +411 @@
 
   if (TEST_OPT_PROT) Print(".");
+
   // clean-up the rings
   maMap_KillRings(map_r, image_r, src_r, dest_r);
@@ -693 +702 @@
  *******************************************************************/
 
-void maPoly_Optimize(mapoly mpoly, ring src_r){
+void maPoly_Optimize(mapoly mpoly, ring src_r)
+{
   assume(mpoly!=NULL && mpoly->src!=NULL);
   mapoly iter = mpoly;