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

places gc testing support code

Browse Source 
svn: r18122
This commit is contained in:
Kevin Tew 2010-02-17 20:35:46 +00:00
parent fa5ed2c160
commit 81d38e6acb
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -197,6 +197,13 @@ static int do_main_stack_setup(int no_auto_statics, Scheme_Nested_Main _main, vo
return return_code; return return_code;
} }
#if defined(IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS)
/* This allows for places gc unit tests to switch the Thread_Local_Variables and simulate places */
void scheme_set_thread_local_variables(Thread_Local_Variables *tlvs) {
pthread_setspecific(scheme_thread_local_key, tlvs);
}
#endif
#if defined(IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS) && defined(INLINE_GETSPECIFIC_ASSEMBLY_CODE) #if defined(IMPLEMENT_THREAD_LOCAL_VIA_PTHREADS) && defined(INLINE_GETSPECIFIC_ASSEMBLY_CODE)
static void macosx_get_thread_local_key_for_assembly_code() { static void macosx_get_thread_local_key_for_assembly_code() {
/* Our [highly questionable] strategy for inlining pthread_getspecific() is taken from /* Our [highly questionable] strategy for inlining pthread_getspecific() is taken from