try fixing threads get

huishenlab · Jul 2, 2024 · 79368aa · 79368aa
1 parent 76052c1
commit 79368aa
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/get_threads.cpp b/src/get_threads.cpp
@@ -26,10 +26,11 @@ int get_omp_threads(bool verbose) {
         Rprintf("This installation of data.table has not been compiled with OpenMP support.\n");
       #else
         Rprintf("  OpenMP version (_OPENMP)       %d\n", _OPENMP);
+        Rprintf("  omp_get_num_procs()            %d\n", omp_get_num_procs());
+        Rprintf("  omp_get_thread_limit()         %d\n", omp_get_thread_limit());
+        Rprintf("  omp_get_max_threads()          %d\n", omp_get_max_threads());
+        return omp_get_max_threads();
       #endif
-      Rprintf("  omp_get_num_procs()            %d\n", omp_get_num_procs());
-      Rprintf("  omp_get_thread_limit()         %d\n", omp_get_thread_limit());
-      Rprintf("  omp_get_max_threads()          %d\n", omp_get_max_threads());
     }
-    return omp_get_max_threads();
+    return 1;
 }