suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix non-future build

Browse Source 
svn: r16904
This commit is contained in:
Matthew Flatt 2009-11-19 22:41:49 +00:00
parent 6137c3267f
commit bf8c1826b4
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/mzscheme/src/future.c
View File

@ -23,6 +23,12 @@ static Scheme_Object *touch(int argc, Scheme_Object *argv[])
return NULL;
}
static Scheme_Object *processor_count(int argc, Scheme_Object *argv[])
{
scheme_signal_error("processor-count: not enabled");
return NULL;
}
# define FUTURE_PRIM_W_ARITY(name, func, a1, a2, env) GLOBAL_PRIM_W_ARITY(name, func, a1, a2, env)
void scheme_init_futures(Scheme_Env *env)
@ -660,10 +666,10 @@ Scheme_Object *processor_count(int argc, Scheme_Object *argv[])
{
int cpucount = 0;
#ifdef linux
#ifdef linux
cpucount = sysconf(_SC_NPROCESSORS_ONLN);
#elif OS_X
nt mib[4];
#elif OS_X
int mib[4];
size_t len;
/* set the mib for hw.ncpu */
@ -681,13 +687,13 @@ Scheme_Object *processor_count(int argc, Scheme_Object *argv[])
cpucount = 1;
}
}
#elif WINDOWS
#elif WINDOWS
SYSTEM_INFO sysinfo;
GetSystemInfo(&sysinfo);
cpucount = sysinfo.dwNumberOfProcessors;
#else
#else
cpucount = THREAD_POOL_SIZE;
#endif
#endif
return scheme_make_integer(cpucount);
}