Changeset 4218c1 in git for libpolys/polys/monomials/p_polys.cc

Timestamp:

Feb 1, 2021, 1:48:48 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

311d0993aaf7a37ae5134ab3b58a01291ecdfb59

Parents:

19ee5eb33e0ea7b7b2733aee435dc677eb23f478

Message:

fix: p_InitContent only for (some) internal coeffs

File:

• libpolys/polys/monomials/p_polys.cc (modified) (1 diff)

libpolys/polys/monomials/p_polys.cc

@@ -2288 +2288 @@
     p_SetCoeff(ph,n_Init(1,cf),r);
   }
-  if (cf->cfSubringGcd==ndGcd) /* trivial gcd*/ return;
-  number h=p_InitContent(ph,r); /* first guess of a gcd of all coeffs */
+  if ((cf->cfSubringGcd==ndGcd)
+  || (cf->cfGcd==ndGcd)) /* trivial gcd*/
+    return;
+  number h;
+  if ((rField_is_Q(r))
+  || (rField_is_Q_a(r))
+  || (rField_is_Zp_a)(r)
+  || (rField_is_Z(r))
+  )
+  {
+    h=p_InitContent(ph,r); /* first guess of a gcd of all coeffs */
+  }
+  else
+  {
+    h=n_Copy(pGetCoeff(ph),cf);
+  }
   poly p;
   if(n_IsOne(h,cf))