Changeset e95342 in git for kernel/fast_mult.cc

Timestamp:

Feb 14, 2005, 6:58:18 PM (19 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6f0eb7cc789ce72acab78e27ee96840bf84472c5

Parents:

49bfb1f50e3b7d2ed4c371ec6ee986a0d6f3d2ef

Message:

*bricken: memory leak removed


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

File:

• kernel/fast_mult.cc (modified) (4 diffs)

kernel/fast_mult.cc

@@ -3 +3 @@
 typedef poly fastmultrec(poly f, poly g, ring r);
 static const int pass_option=1;
+static int mults=0;
+int Mults(){
+  return mults;
+}
 static void degsplit(poly p,int n,poly &p1,poly&p2, int vn, ring r){
   poly erg1_i, erg2_i;
@@ -83 +87 @@
   //construct erg, factor
   poly erg=NULL;
-  poly factor=pOne();
+  poly factor=p_ISet(1,r);
 
   p_SetExp(factor,vn,n,r);
@@ -125 +129 @@
     p_SetExp(factor,vn,pot,r);
     poly h=p_Mult_mm(((s1!=NULL)?s1:s2),factor,r);
-    pDelete(&f1);
-    pDelete(&f0);
-    pDelete(&g0);
-    pDelete(&g1);
+    p_Delete(&f1,r);
+    p_Delete(&f0,r);
+    p_Delete(&g0,r);
+    p_Delete(&g1,r);
+    p_Delete(&p00,r);
+    p_Delete(&p11,r);
     erg=p_Add_q(erg,h,r);
   }
@@ -248 +254 @@
 
 poly multifastmult(poly f, poly g, ring r){
+  mults++;
   if((f==NULL)||(g==NULL)) return NULL;
   if (pLength(f)*pLength(g)<100)