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

global variable tagging

Browse Source 
svn: r17489
This commit is contained in:
Kevin Tew 2010-01-06 04:49:03 +00:00
parent d08684c9b8
commit f12bda77c9
4 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,10 +42,10 @@
/* #define TIME_STARTUP_PROCESS */ /* #define TIME_STARTUP_PROCESS */
/* global flags */ /* global flags */
int scheme_allow_set_undefined; SHARED_OK int scheme_allow_set_undefined;
void scheme_set_allow_set_undefined(int v) { scheme_allow_set_undefined = v; } void scheme_set_allow_set_undefined(int v) { scheme_allow_set_undefined = v; }
int scheme_get_allow_set_undefined() { return scheme_allow_set_undefined; } int scheme_get_allow_set_undefined() { return scheme_allow_set_undefined; }
int scheme_starting_up; SHARED_OK int scheme_starting_up;
/* global counters just need to be atomically incremented */ /* global counters just need to be atomically incremented */
static int intdef_counter = 0; static int intdef_counter = 0;

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

@ -151,7 +151,7 @@
/* globals */ /* globals */
int scheme_startup_use_jit = 1; SHARED_OK int scheme_startup_use_jit = 1;
void scheme_set_startup_use_jit(int v) { scheme_startup_use_jit = v; } void scheme_set_startup_use_jit(int v) { scheme_startup_use_jit = v; }
/* global counters */ /* global counters */

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

@ -63,13 +63,13 @@ THREAD_LOCAL Thread_Local_Variables scheme_thread_locals;
#endif #endif
extern int scheme_num_copied_stacks; extern int scheme_num_copied_stacks;
static unsigned long scheme_primordial_os_thread_stack_base; SHARED_OK static unsigned long scheme_primordial_os_thread_stack_base;
THREAD_LOCAL_DECL(static unsigned long scheme_os_thread_stack_base); THREAD_LOCAL_DECL(static unsigned long scheme_os_thread_stack_base);
#ifdef USE_THREAD_LOCAL #ifdef USE_THREAD_LOCAL
Thread_Local_Variables *scheme_vars; /* for debugging */ SHARED_OK Thread_Local_Variables *scheme_vars; /* for debugging */
#endif #endif
static Scheme_Report_Out_Of_Memory_Proc more_report_out_of_memory; HOOK_SHARED_OK static Scheme_Report_Out_Of_Memory_Proc more_report_out_of_memory;
#if defined(MZ_XFORM) && !defined(MZ_PRECISE_GC) #if defined(MZ_XFORM) && !defined(MZ_PRECISE_GC)
void **GC_variable_stack; void **GC_variable_stack;
@ -79,7 +79,7 @@ void **GC_variable_stack;
extern MZ_DLLIMPORT void GC_register_late_disappearing_link(void **link, void *obj); extern MZ_DLLIMPORT void GC_register_late_disappearing_link(void **link, void *obj);
#endif #endif
static int use_registered_statics; SHARED_OK static int use_registered_statics;
/************************************************************************/ /************************************************************************/
/* stack setup */ /* stack setup */
@ -1566,9 +1566,9 @@ static int skip_foreign_thread(void *p, size_t size)
#endif #endif
void (*scheme_external_dump_info)(void); HOOK_SHARED_OK void (*scheme_external_dump_info)(void);
void (*scheme_external_dump_arg)(Scheme_Object *arg); HOOK_SHARED_OK void (*scheme_external_dump_arg)(Scheme_Object *arg);
char *(*scheme_external_dump_type)(void *v); HOOK_SHARED_OK char *(*scheme_external_dump_type)(void *v);
#ifdef USE_TAGGED_ALLOCATION #ifdef USE_TAGGED_ALLOCATION
static void count_managed(Scheme_Custodian *m, int *c, int *a, int *u, int *t, static void count_managed(Scheme_Custodian *m, int *c, int *a, int *u, int *t,

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

@ -64,7 +64,7 @@ unsigned long scheme_max_found_symbol_name;
/* globals */ /* globals */
SHARED_OK int scheme_case_sensitive = 1; SHARED_OK int scheme_case_sensitive = 1;
static int gensym_counter; static int gensym_counter; /*FIXME need atomic increment*/
void scheme_set_case_sensitive(int v) { scheme_case_sensitive = v; } void scheme_set_case_sensitive(int v) { scheme_case_sensitive = v; }