From f12bda77c940ba3fe3f1ddbb709f20f656be2557 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Wed, 6 Jan 2010 04:49:03 +0000 Subject: [PATCH] global variable tagging svn: r17489 --- src/mzscheme/src/env.c | 4 ++-- src/mzscheme/src/eval.c | 2 +- src/mzscheme/src/salloc.c | 14 +++++++------- src/mzscheme/src/symbol.c | 2 +- 4 files changed, 11 insertions(+), 11 deletions(-) diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c index bf29fd6396..2a121836fa 100644 --- a/src/mzscheme/src/env.c +++ b/src/mzscheme/src/env.c @@ -42,10 +42,10 @@ /* #define TIME_STARTUP_PROCESS */ /* 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; } 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 */ static int intdef_counter = 0; diff --git a/src/mzscheme/src/eval.c b/src/mzscheme/src/eval.c index 65552badc9..e4ce038fcf 100644 --- a/src/mzscheme/src/eval.c +++ b/src/mzscheme/src/eval.c @@ -151,7 +151,7 @@ /* 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; } /* global counters */ diff --git a/src/mzscheme/src/salloc.c b/src/mzscheme/src/salloc.c index 60bf423fc4..127ed6db5b 100644 --- a/src/mzscheme/src/salloc.c +++ b/src/mzscheme/src/salloc.c @@ -63,13 +63,13 @@ THREAD_LOCAL Thread_Local_Variables scheme_thread_locals; #endif 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); #ifdef USE_THREAD_LOCAL -Thread_Local_Variables *scheme_vars; /* for debugging */ +SHARED_OK Thread_Local_Variables *scheme_vars; /* for debugging */ #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) 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); #endif -static int use_registered_statics; +SHARED_OK static int use_registered_statics; /************************************************************************/ /* stack setup */ @@ -1566,9 +1566,9 @@ static int skip_foreign_thread(void *p, size_t size) #endif -void (*scheme_external_dump_info)(void); -void (*scheme_external_dump_arg)(Scheme_Object *arg); -char *(*scheme_external_dump_type)(void *v); +HOOK_SHARED_OK void (*scheme_external_dump_info)(void); +HOOK_SHARED_OK void (*scheme_external_dump_arg)(Scheme_Object *arg); +HOOK_SHARED_OK char *(*scheme_external_dump_type)(void *v); #ifdef USE_TAGGED_ALLOCATION static void count_managed(Scheme_Custodian *m, int *c, int *a, int *u, int *t, diff --git a/src/mzscheme/src/symbol.c b/src/mzscheme/src/symbol.c index d3dab00073..15873003d5 100644 --- a/src/mzscheme/src/symbol.c +++ b/src/mzscheme/src/symbol.c @@ -64,7 +64,7 @@ unsigned long scheme_max_found_symbol_name; /* globals */ 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; }