Changeset 764c0f in git for libpolys

Timestamp:

Feb 17, 2021, 9:41:19 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

4470c0e32fbd88486ac477ef7c9a7a70bf64e46e

Parents:

d58ff1053b36c1f89b1558cad550aa1f4b0f1463

Message:

fix: p_SimpleContent

File:

• libpolys/polys/monomials/p_polys.cc (modified) (3 diffs)

libpolys/polys/monomials/p_polys.cc

@@ -2639 +2639 @@
   }
   number d=p_InitContent(ph,r);
+  number h=d;
   if (n_Size(d,r->cf)<=smax)
   {
+    n_Delete(&h,r->cf);
     //if (TEST_OPT_PROT) PrintS("G");
     return;
@@ -2646 +2648 @@
 
   poly p=ph;
-  number h=d;
   if (smax==1) smax=2;
   while (p!=NULL)
   {
-#if 0
-    d=n_Gcd(h,pGetCoeff(p),r->cf);
+#if 1
+    d=n_SubringGcd(h,pGetCoeff(p),r->cf);
     n_Delete(&h,r->cf);
     h = d;
 #else
-    STATISTIC(n_Gcd); nlInpGcd(h,pGetCoeff(p),r->cf);
+    n_InpGcd(h,pGetCoeff(p),r->cf);
 #endif
     if(n_Size(h,r->cf)<smax)
     {
       //if (TEST_OPT_PROT) PrintS("g");
+      n_Delete(&h,r->cf);
       return;
     }
@@ -2666 +2668 @@
   p = ph;
   if (!n_GreaterZero(pGetCoeff(p),r->cf)) h=n_InpNeg(h,r->cf);
-  if(n_IsOne(h,r->cf)) return;
+  if(n_IsOne(h,r->cf))
+  {
+    n_Delete(&h,r->cf);
+    return;
+  }
   if (TEST_OPT_PROT) PrintS("c");
   while (p!=NULL)