Changeset 611ad6 in git

Timestamp:

Sep 14, 2017, 2:48:31 PM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6d55df2fa6351d0347e3aa5fb44cd66c3587bf1d

Parents:

7cf3139bdf08fe6340e8e6f9c9bff8776001a04f

Message:

opt: nc/old.gring.cc

File:

• libpolys/polys/nc/old.gring.cc (modified) (5 diffs)

libpolys/polys/nc/old.gring.cc

@@ -1442 +1442 @@
   p_Test(p2,r);
   n_Delete(&C,r->cf);
-  n_Delete(&cG,r->cf);
 
   poly out = nc_mm_Mult_pp(m, pNext(p1), r);
@@ -1653 +1652 @@
 #endif
 
-  p_Delete(&pL,r);
+  p_LmFree(&pL,r);
 
   /* zero exponents !? */
@@ -1909 +1908 @@
   }
 
-//  n_Delete(&p_GetCoeff(m, r), r->cf);
-//  pSetCoeff0(m, NULL);
-
-#ifdef PDEBUG
-//  p_Test(m,r);
-#endif
+  pSetCoeff0(m,NULL);
 
   return(m);
@@ -2858 +2852 @@
     /* analyze C */
 
-    pN = NULL; /* check the consistency later */
+    BOOLEAN pN_set=FALSE;
+    pN = n_Init(0,curr->cf);
 
     if( r->N > 1 )
       if ( MATELEM(CC,1,2) != NULL )
+      {
+        if (!pN_set) n_Delete(&pN,curr->cf); // free initial nInit(0)
         pN = p_GetCoeff(MATELEM(CC,1,2), curr);
+        pN_set=TRUE;
+      }
 
     tmpIsSkewConstant = true;
@@ -2913 +2912 @@
     else
       nctype = nc_general;
+    if (!pN_set) n_Delete(&pN,curr->cf); // free initial nInit(0)
   }