From 79368aa7e2f78b600d16f573e2facda3d21c3c37 Mon Sep 17 00:00:00 2001 From: James Eapen Date: Tue, 2 Jul 2024 15:19:41 -0400 Subject: [PATCH] try fixing threads get --- src/get_threads.cpp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/get_threads.cpp b/src/get_threads.cpp index 7224079..2677755 100644 --- 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; }