We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent f5f50b3 commit 271af40Copy full SHA for 271af40
1 file changed
common.h
@@ -524,10 +524,21 @@ static __inline void blas_unlock(volatile BLASULONG *address){
524
*address = 0;
525
}
526
527
+
528
+#ifdef OS_WINDOWS
529
static __inline int readenv_atoi(char *env) {
530
env_var_t p;
531
return readenv(p,env) ? 0 : atoi(p);
532
533
+#else
534
+static __inline int readenv_atoi(char *env) {
535
+ char *p;
536
+ if (( p = getenv(env) ))
537
+ return (atoi(p));
538
+ else
539
+ return(0);
540
+}
541
+#endif
542
543
544
#if !defined(XDOUBLE) || !defined(QUAD_PRECISION)
0 commit comments