bugfix for linux affinity code
authorwernsaar <wernsaar@googlemail.com>
Fri, 1 Aug 2014 21:10:08 +0000 (23:10 +0200)
committerwernsaar <wernsaar@googlemail.com>
Fri, 1 Aug 2014 21:10:08 +0000 (23:10 +0200)
common.h

index 7125ce3..1250e2e 100644 (file)
--- a/common.h
+++ b/common.h
@@ -524,10 +524,21 @@ static __inline void blas_unlock(volatile BLASULONG *address){
   *address = 0;
 }
 
+
+#ifdef OS_WINDOWS
 static __inline int readenv_atoi(char *env) {
   env_var_t p;
   return readenv(p,env) ? 0 : atoi(p);
 }
+#else
+static __inline int readenv_atoi(char *env) {
+  char *p;
+  if (( p = getenv(env) ))
+       return (atoi(p));
+  else
+       return(0);
+}
+#endif
 
 
 #if !defined(XDOUBLE) || !defined(QUAD_PRECISION)