Changeset 3d56a7 in git

Timestamp:

Aug 17, 2020, 1:42:07 PM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

165ceae980da60f576583da4cf80a6de92e4e0a216ce22dc90c26627e3ab2d59850877715a80ba43

Parents:

a71eabdfff523e0626ba9232736fadfa4ae937eb

Message:

fix: factorize over Z: const. factor

File:

• libpolys/polys/clapsing.cc (modified) (2 diffs)

libpolys/polys/clapsing.cc

@@ -996 +996 @@
   if (r->cf->convSingNFactoryN!=ndConvSingNFactoryN)
   {
-    if (rField_is_Q(r) || rField_is_Q_a(r)) /* Q, Q(a) */
+    if (rField_is_Q(r) || rField_is_Q_a(r) || rField_is_Z(r)) /* Q, Q(a), Z */
     {
       //if (f!=NULL) // already tested at start of routine
@@ -1004 +1004 @@
           N=n_Copy(n0,r->cf);
         p_Cleardenom(f, r);
+        if (rField_is_Z(r)) p_Content(f, r);
         //after here f should not have a denominator!!
         //PrintS("S:");p_Write(f,r);PrintLn();