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

fix stack size of threads that implement places

Browse Source 
... on platforms other than Mac OS X and Linux.
This commit is contained in:
Matthew Flatt 2013-08-09 14:21:03 -06:00
parent 23a757aefa
commit 19cda0396b
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
racket/src/racket/src/mzrt.c
View File

@ -49,12 +49,11 @@ START_XFORM_SUSPEND;
# include <signal.h> # include <signal.h>
# include <unistd.h> # include <unistd.h>
# include <time.h> # include <time.h>
# if defined(UNIX_LIMIT_STACK) || defined(UNIX_LIMIT_FDSET_SIZE) #endif
# include <signal.h> #ifdef UNIX_FIND_STACK_BOUNDS
#include <sys/time.h> #include <sys/time.h>
#include <sys/resource.h> #include <sys/resource.h>
#endif #endif
#endif
/* Define this is we need CGC support for threads. This was needed /* Define this is we need CGC support for threads. This was needed
when we tried to make places work with the Boehm GC, but since that has when we tried to make places work with the Boehm GC, but since that has
@ -254,9 +253,21 @@ mz_proc_thread* mz_proc_thread_create_w_stacksize(mz_proc_thread_start start_pro
} }
mz_proc_thread* mz_proc_thread_create(mz_proc_thread_start start_proc, void* data) { mz_proc_thread* mz_proc_thread_create(mz_proc_thread_start start_proc, void* data) {
intptr_t stacksize; uintptr_t stacksize;
#if defined(OS_X) || defined(linux) #if defined(ASSUME_FIXED_STACK_SIZE)
stacksize = FIXED_STACK_SIZE;
#elif defined(UNIX_FIND_STACK_BOUNDS)
{
struct rlimit rl;
getrlimit(RLIMIT_STACK, &rl);
stacksize = (uintptr_t)rl.rlim_cur;
# ifdef UNIX_STACK_MAXIMUM
if (stacksize > UNIX_STACK_MAXIMUM)
stacksize = UNIX_STACK_MAXIMUM;
# endif
}
#elif defined(OS_X) || defined(linux)
stacksize = 8*1024*1024; stacksize = 8*1024*1024;
#else #else
stacksize = 0; stacksize = 0;