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

repairs for thread-local support when the C sompiler does support thread locals

Browse Source 
svn: r16864
This commit is contained in:
Matthew Flatt 2009-11-18 15:15:20 +00:00
parent e26c2a084f
commit 57aa34cfe6
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/mzscheme/src/salloc.c
View File

@ -54,8 +54,12 @@ static void **dgc_array;
static int *dgc_count;
static int dgc_size;
#ifdef IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS
#ifdef USE_THREAD_LOCAL
# ifdef IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS
pthread_key_t scheme_thread_local_key;
# else
THREAD_LOCAL Thread_Local_Variables scheme_thread_locals;
# endif
#endif
extern int scheme_num_copied_stacks;
@ -223,7 +227,7 @@ START_XFORM_SKIP;
#endif
void scheme_init_os_thread()
{
#ifdef USE_THREAD_LOCAL
#ifdef IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS
Thread_Local_Variables *vars;
vars = (Thread_Local_Variables *)malloc(sizeof(Thread_Local_Variables));
memset(vars, 0, sizeof(Thread_Local_Variables));