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

Fixed stxobj THREAD_LOCAL REGISTER_SO

Browse Source 
svn: r15051
This commit is contained in:
Kevin Tew 2009-06-02 16:24:33 +00:00
parent 6aca811cd0
commit f883264eb6
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -392,6 +392,7 @@ static Scheme_Env *place_instance_init_post_kernel() {
scheme_init_print_buffers_places();
scheme_init_eval_places();
scheme_init_regexp_places();
scheme_init_stx_places();
env = scheme_make_empty_env();
scheme_set_param(scheme_current_config(), MZCONFIG_ENV, (Scheme_Object *)env);

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

@ -223,6 +223,7 @@ void scheme_init_print_buffers_places(void);
void scheme_init_eval_places(void);
void scheme_init_port_places(void);
void scheme_init_regexp_places(void);
void scheme_init_stx_places(void);
void scheme_free_dynamic_extensions(void);

9
src/mzscheme/src/stxobj.c
View File

@ -101,7 +101,7 @@ static THREAD_LOCAL Scheme_Object *unsealed_dependencies;
static THREAD_LOCAL Scheme_Hash_Table *id_marks_ht; /* a cache */
static THREAD_LOCAL Scheme_Hash_Table *than_id_marks_ht; /* a cache */
static Scheme_Bucket_Table *interned_skip_ribs; /* FIXME: shared among threads */
static THREAD_LOCAL Scheme_Bucket_Table *interned_skip_ribs;
static Scheme_Object *no_nested_inactive_certs;
@ -623,9 +623,6 @@ void scheme_init_stx(Scheme_Env *env)
REGISTER_SO(empty_hash_table);
empty_hash_table = scheme_make_hash_table(SCHEME_hash_ptr);
REGISTER_SO(id_marks_ht);
REGISTER_SO(than_id_marks_ht);
REGISTER_SO(no_nested_inactive_certs);
no_nested_inactive_certs = scheme_make_raw_pair(NULL, NULL);
SCHEME_SET_IMMUTABLE(no_nested_inactive_certs);
@ -634,7 +631,11 @@ void scheme_init_stx(Scheme_Env *env)
scheme_install_type_writer(scheme_free_id_info_type, write_free_id_info_prefix);
scheme_install_type_reader(scheme_free_id_info_type, read_free_id_info_prefix);
}
void scheme_init_stx_places() {
REGISTER_SO(id_marks_ht);
REGISTER_SO(than_id_marks_ht);
REGISTER_SO(interned_skip_ribs);
interned_skip_ribs = scheme_make_weak_equal_table();
}