Changeset c3c832 in git for libpolys/polys/clapsing.cc

Timestamp:

Sep 30, 2021, 11:50:24 AM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

348ae69282271d1294a9b41bd9c15b897966c0ce

Parents:

4dc97bfcb251c1bcfa5ad66d1a61c6a41e7f0c86

Message:

gcd over Z via flint

File:

• libpolys/polys/clapsing.cc (modified) (1 diff)

libpolys/polys/clapsing.cc

@@ -78 +78 @@
       poly res=Flint_GCD_MP(f,pLength(f),g,pLength(g),ctx,r);
       res=p_Cleardenom(res,r);
+      return res;
+    }
+  }
+  else
+  if (rField_is_Z(r))
+  {
+    fmpz_mpoly_ctx_t ctx;
+    if (!convSingRFlintR(ctx,r))
+    {
+      // leading coef. positive, all coeffs in Z
+      poly res=Flint_GCD_MP(f,pLength(f),g,pLength(g),ctx,r);
       return res;
     }