Changeset 2a58493 in git

Timestamp:

Apr 29, 2024, 11:59:38 AM (2 weeks ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')

Children:

9ea349771971bc025429e7c2f664c4ed01240724

Parents:

6e5adcba05493683b94648c659a729c189812c77

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2024-04-29 11:59:38+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2024-04-29 16:47:39+02:00

Message:

opt: reorg. _p_Mult_q

File:

• libpolys/polys/operations/p_Mult_q.cc (modified) (1 diff)

libpolys/polys/operations/p_Mult_q.cc

@@ -336 +336 @@
   #ifdef HAVE_FLINT
   #if __FLINT_RELEASE >= 20503
-  if (lq>MIN_FLINT_QQ)
-  {
-    fmpq_mpoly_ctx_t ctx;
-    if (pure_polys && rField_is_Q(r) && !convSingRFlintR(ctx,r))
-    {
-      // lq is a lower bound for the length of p and  q
-      poly res=Flint_Mult_MP(p,lq,q,lq,ctx,r);
-      if (!copy)
+  if (pure_polys)
+  {
+    if ((lq>MIN_FLINT_QQ) && rField_is_Q(r))
+    {
+      fmpq_mpoly_ctx_t ctx;
+      if (!convSingRFlintR(ctx,r))
       {
-        p_Delete(&p,r);
-        p_Delete(&q,r);
+        // lq is a lower bound for the length of p and  q
+        poly res=Flint_Mult_MP(p,lq,q,lq,ctx,r);
+        if (!copy)
+        {
+          p_Delete(&p,r);
+          p_Delete(&q,r);
+        }
+        return res;
       }
-      return res;
-    }
-  }
-  if (lq>MIN_FLINT_Zp)
-  {
-    nmod_mpoly_ctx_t ctx;
-    if (pure_polys && rField_is_Zp(r) && !convSingRFlintR(ctx,r))
-    {
-      // lq is a lower bound for the length of p and  q
-      poly res=Flint_Mult_MP(p,lq,q,lq,ctx,r);
-      if (!copy)
+    }
+    if ((lq>MIN_FLINT_Zp) && rField_is_Zp(r))
+    {
+      nmod_mpoly_ctx_t ctx;
+      if (!convSingRFlintR(ctx,r))
       {
-        p_Delete(&p,r);
-        p_Delete(&q,r);
+        // lq is a lower bound for the length of p and  q
+        poly res=Flint_Mult_MP(p,lq,q,lq,ctx,r);
+        if (!copy)
+        {
+          p_Delete(&p,r);
+          p_Delete(&q,r);
+        }
+        return res;
       }
-      return res;
-    }
-  }
-  if (lq>MIN_FLINT_Z)
-  {
-    fmpz_mpoly_ctx_t ctx;
-    if (pure_polys && rField_is_Z(r) && !convSingRFlintR(ctx,r))
-    {
-      // lq is a lower bound for the length of p and  q
-      poly res=Flint_Mult_MP(p,lq,q,lq,ctx,r);
-      if (!copy)
+    }
+    if ((lq>MIN_FLINT_Z) && rField_is_Z(r))
+    {
+      fmpz_mpoly_ctx_t ctx;
+      if (!convSingRFlintR(ctx,r))
       {
-        p_Delete(&p,r);
-        p_Delete(&q,r);
+        // lq is a lower bound for the length of p and  q
+        poly res=Flint_Mult_MP(p,lq,q,lq,ctx,r);
+        if (!copy)
+        {
+          p_Delete(&p,r);
+          p_Delete(&q,r);
+        }
+        return res;
       }
-      return res;
     }
   }