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

added THREAD_LOCAL to continuation counter globals

Browse Source 
svn: r15590
This commit is contained in:
Kevin Tew 2009-07-27 21:38:05 +00:00
parent d5f409e680
commit fa13bbb72b
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/eval.c
View File

@ -163,7 +163,7 @@ static THREAD_LOCAL Scheme_Object *quick_stx;
/* FIXME needs to be atomically incremented */ /* FIXME needs to be atomically incremented */
int scheme_overflow_count; int scheme_overflow_count;
int get_overflow_count() { return scheme_overflow_count; } int get_overflow_count() { return scheme_overflow_count; }
int scheme_continuation_application_count; int THREAD_LOCAL scheme_continuation_application_count;
/* read-only globals */ /* read-only globals */
Scheme_Object *scheme_eval_waiting; Scheme_Object *scheme_eval_waiting;

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

@ -89,8 +89,8 @@ Scheme_Object *scheme_tail_call_waiting;
Scheme_Object *scheme_inferred_name_symbol; Scheme_Object *scheme_inferred_name_symbol;
Scheme_Object *scheme_default_prompt_tag; Scheme_Object *scheme_default_prompt_tag;
int scheme_cont_capture_count; THREAD_LOCAL int scheme_cont_capture_count;
int scheme_prompt_capture_count; static THREAD_LOCAL int scheme_prompt_capture_count;
/* locals */ /* locals */

4
src/mzscheme/src/schpriv.h
View File

@ -91,8 +91,8 @@ Scheme_Object *scheme_dump_gc_stats(int c, Scheme_Object *p[]);
#define REGISTER_SO(x) MZ_REGISTER_STATIC(x) #define REGISTER_SO(x) MZ_REGISTER_STATIC(x)
extern long scheme_total_gc_time; extern long scheme_total_gc_time;
extern int scheme_cont_capture_count; extern THREAD_LOCAL int scheme_cont_capture_count;
extern int scheme_continuation_application_count; extern THREAD_LOCAL int scheme_continuation_application_count;
int scheme_num_types(void); int scheme_num_types(void);