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

More Thread LOCAL

Browse Source 
svn: r11612
This commit is contained in:
Kevin Tew 2008-09-09 15:56:32 +00:00
parent 131f74fac2
commit 3e5fda6614
4 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/env.c
View File

@ -65,8 +65,8 @@ static Scheme_Object *toplevels[MAX_CONST_TOPLEVEL_DEPTH][MAX_CONST_TOPLEVEL_POS
/* globals THREAD_LOCAL
* if locked theses are probably sharable*/
static Scheme_Hash_Table *toplevels_ht;
static Scheme_Hash_Table *locals_ht[2];
static THREAD_LOCAL Scheme_Hash_Table *toplevels_ht;
static THREAD_LOCAL Scheme_Hash_Table *locals_ht[2];
/* local functions */
static void make_kernel_env(void);

16
src/mzscheme/src/fun.c
View File

@ -167,13 +167,15 @@ static Scheme_Object *abort_continuation_proc;
static Scheme_Object *internal_call_cc_prim;
/* CACHES NEED TO BE THREAD LOCAL */
static Scheme_Prompt *available_prompt, *available_cws_prompt, *available_regular_prompt;
static Scheme_Dynamic_Wind *available_prompt_dw;
static Scheme_Meta_Continuation *available_prompt_mc;
static Scheme_Object *cached_beg_stx;
static Scheme_Object *cached_dv_stx;
static Scheme_Object *cached_ds_stx;
static int cached_stx_phase;
static THREAD_LOCAL Scheme_Prompt *available_prompt;
static THREAD_LOCAL Scheme_Prompt *available_cws_prompt;
static THREAD_LOCAL Scheme_Prompt *available_regular_prompt;
static THREAD_LOCAL Scheme_Dynamic_Wind *available_prompt_dw;
static THREAD_LOCAL Scheme_Meta_Continuation *available_prompt_mc;
static THREAD_LOCAL Scheme_Object *cached_beg_stx;
static THREAD_LOCAL Scheme_Object *cached_dv_stx;
static THREAD_LOCAL Scheme_Object *cached_ds_stx;
static THREAD_LOCAL int cached_stx_phase;
/* NEED TO BE THREAD LOCAL */
static Scheme_Cont *offstack_cont;

4
src/mzscheme/src/stxobj.c
View File

@ -90,7 +90,9 @@ static Scheme_Hash_Table *empty_hash_table;
static Scheme_Object *last_phase_shift;
static Scheme_Hash_Table *id_marks_ht, *than_id_marks_ht;
/* caches */
static THREAD_LOCAL Scheme_Hash_Table *id_marks_ht;
static THREAD_LOCAL Scheme_Hash_Table *than_id_marks_ht;
static Scheme_Object *no_nested_inactive_certs;

6
src/mzscheme/src/thread.c
View File

@ -173,9 +173,9 @@ THREAD_LOCAL MZ_MARK_STACK_TYPE scheme_current_cont_mark_stack;
THREAD_LOCAL MZ_MARK_POS_TYPE scheme_current_cont_mark_pos;
#endif
static Scheme_Custodian *main_custodian;
static Scheme_Custodian *last_custodian;
static Scheme_Hash_Table *limited_custodians = NULL;
static THREAD_LOCAL Scheme_Custodian *main_custodian;
static THREAD_LOCAL Scheme_Custodian *last_custodian;
static THREAD_LOCAL Scheme_Hash_Table *limited_custodians = NULL;
static Scheme_Object *initial_inspector;