Changeset 4218c1 in git

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a657104b677b4c461d018cbf3204d72d34ad66a9')

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))