floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfix for linux affinity code

This commit is contained in:
wernsaar 2014-08-01 23:10:08 +02:00
parent f5f50b3563
commit 271af406f3
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
common.h
View File

@ -524,10 +524,21 @@ static __inline void blas_unlock(volatile BLASULONG *address){
*address = 0; *address = 0;
} }
#ifdef OS_WINDOWS
static __inline int readenv_atoi(char *env) { static __inline int readenv_atoi(char *env) {
env_var_t p; env_var_t p;
return readenv(p,env) ? 0 : atoi(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) #if !defined(XDOUBLE) || !defined(QUAD_PRECISION)