From 0c1348ee03d6d09777c8e4403fe1b269dc61f913 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 18 Apr 2011 06:33:34 -0600 Subject: [PATCH] fix module-code cache for non-futures, non-places build --- src/racket/src/module.c | 1 + src/racket/src/schpriv.h | 1 + 2 files changed, 2 insertions(+) diff --git a/src/racket/src/module.c b/src/racket/src/module.c index 17a3636344..cfbf365c6a 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -33,6 +33,7 @@ /* globals */ SHARED_OK Scheme_Object *(*scheme_module_demand_hook)(int, Scheme_Object **); +THREAD_LOCAL_DECL(Scheme_Bucket_Table *scheme_module_code_cache); SHARED_OK static Scheme_Bucket_Table *modpath_table; #ifdef MZ_USE_PLACES diff --git a/src/racket/src/schpriv.h b/src/racket/src/schpriv.h index a069023e72..cd7edaf845 100644 --- a/src/racket/src/schpriv.h +++ b/src/racket/src/schpriv.h @@ -3116,6 +3116,7 @@ int scheme_tl_id_is_sym_used(Scheme_Hash_Table *marked_names, Scheme_Object *sym Scheme_Object *scheme_sys_wraps(Scheme_Comp_Env *env); Scheme_Object *scheme_sys_wraps_phase(Scheme_Object *phase); +THREAD_LOCAL_DECL(extern Scheme_Bucket_Table *scheme_module_code_cache); Scheme_Object *scheme_module_execute(Scheme_Object *data, Scheme_Env *genv); Scheme_Env *scheme_new_module_env(Scheme_Env *env, Scheme_Module *m, int new_exp_module_tree);