From 0f62e9536602e377b8fc55e3a38be485883f908b Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Tue, 2 Jun 2009 16:24:45 +0000 Subject: [PATCH] Fixed traversers_registered THREAD_LOCAL svn: r15053 --- src/mzscheme/src/module.c | 1 + src/mzscheme/src/salloc.c | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index 217d2aebc7..4d8deb4503 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -197,6 +197,7 @@ static Scheme_Object *empty_self_modname; static Scheme_Bucket_Table *starts_table; +/* caches */ static THREAD_LOCAL Scheme_Modidx *modidx_caching_chain; static THREAD_LOCAL Scheme_Object *global_shift_cache; #define GLOBAL_SHIFT_CACHE_SIZE 40 diff --git a/src/mzscheme/src/salloc.c b/src/mzscheme/src/salloc.c index d8364aaef7..e3e97138a2 100644 --- a/src/mzscheme/src/salloc.c +++ b/src/mzscheme/src/salloc.c @@ -1039,7 +1039,7 @@ static void do_next_finalization(void *o, void *data) /* Makes gc2 xformer happy: */ typedef void (*finalizer_function)(void *p, void *data); -static int traversers_registered; +static THREAD_LOCAL int traversers_registered; static THREAD_LOCAL Finalizations **save_fns_ptr; static void add_finalizer(void *v, void (*f)(void*,void*), void *data,