Fix bug affecting MEX interface on Octave

mfasi · mfasi · commit 8471c6cdbb6e · 2025-12-10T15:09:49.000Z
diff --git a/src/cpfloat_template.h b/src/cpfloat_template.h
@@ -195,7 +195,7 @@ static inline INTTYPE PRNG_ADVANCE_RAND(RANDSEEDTYPE *seed, size_t delta) {
   return GEN_SINGLE_RAND(seed);
 }
 #define ADVANCERAND(seed, thread, nloc) PRNG_ADVANCE_RAND(seed, thread);
-#define GENRAND(seed) PRNG_ADVANCE_RAND(seed, nthreads)
+#define GENRAND(seed) PRNG_ADVANCE_RAND(seed, omp_get_num_threads())
 #else /* #ifdef _OPENMP */
 #define GENRAND(seed) (GEN_SINGLE_RAND(seed))
 #endif /* #ifdef _OPENMP */

Original file line number	Diff line number	Diff line change
`@@ -195,7 +195,7 @@ static inline INTTYPE PRNG_ADVANCE_RAND(RANDSEEDTYPE *seed, size_t delta) {`
`195`	`195`	`return GEN_SINGLE_RAND(seed);`
`196`	`196`	`}`
`197`	`197`	`#define ADVANCERAND(seed, thread, nloc) PRNG_ADVANCE_RAND(seed, thread);`
`198`		`-#define GENRAND(seed) PRNG_ADVANCE_RAND(seed, nthreads)`
	`198`	`+#define GENRAND(seed) PRNG_ADVANCE_RAND(seed, omp_get_num_threads())`
`199`	`199`	`#else /* #ifdef _OPENMP */`
`200`	`200`	`#define GENRAND(seed) (GEN_SINGLE_RAND(seed))`
`201`	`201`	`#endif /* #ifdef _OPENMP */`