Changeset e2e2f7 in git

Timestamp:

Jul 5, 2019, 4:50:51 PM (5 years ago)

Author:

tthsqe12 <tthsqe12@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

84f0d81502771d37e63ee8041e613ac62d48668d

Parents:

f846acd24f4deb73b0e1179f7ea25a1d457c0c11

Message:

new system command flint-threads

Files:

• Singular/feOpt.cc (modified) (1 diff)
• Singular/feOptTab.h (modified) (2 diffs)
• libpolys/polys/flint_mpoly.cc (modified) (1 diff)

Singular/feOpt.cc

@@ -314 +314 @@
       #ifdef HAVE_FLINT
       #if __FLINT_RELEASE >= 20503
-      case FE_OPT_THREADS:
-      {
-        slong nthreads = (slong)feOptSpec[FE_OPT_THREADS].value;
+      case FE_OPT_FLINT_THREADS:
+      {
+        slong nthreads = (slong)feOptSpec[FE_OPT_FLINT_THREADS].value;
         nthreads = FLINT_MAX(nthreads, WORD(1));
         flint_set_num_threads(nthreads);

Singular/feOptTab.h

@@ -3 +3 @@
 
 #define LONG_OPTION_RETURN 13
+
+#ifdef HAVE_FLINT
+#include <flint/flint.h>
+#endif
 
 // Define here which cmd-line options are recognized
@@ -144 +148 @@
    "#threads", "maximal number of CPUs to use for threads",            feOptInt,    (void*)2,      0},
 
+#ifdef HAVE_FLINT
+#if __FLINT_RELEASE >= 20503
+  {"flint-threads",   required_argument,    LONG_OPTION_RETURN,
+   "#flintthreads", "maximal number of threads to use in flint library", feOptInt,    (void*)1,      0},
+#endif
+#endif
+
 
   {"MPport",           required_argument,   LONG_OPTION_RETURN,

libpolys/polys/flint_mpoly.cc

@@ -164 +164 @@
 #else
 
-void my_convSingNFlintN_QQ(fmpq_t f, number n)
+// like convSingNFlintN_QQ but it takes an initialized fmpq_t f
+static void my_convSingNFlintN_QQ(fmpq_t f, number n)
 {
     if (SR_HDL(n)&SR_INT)