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

remove leftover(?) place GC-switching code on prefab lookup

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-20 21:13:21 -06:00
parent 275d4a7a05
commit 2177681336
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/racket/src/struct.c
View File

@ -4346,24 +4346,13 @@ Scheme_Object *scheme_make_struct_type_from_string(const char *base,
static Scheme_Struct_Type *lookup_prefab(Scheme_Object *key) { static Scheme_Struct_Type *lookup_prefab(Scheme_Object *key) {
Scheme_Object *a = NULL; Scheme_Object *a = NULL;
# if defined(MZ_USE_PLACES) && defined(MZ_PRECISE_GC)
void *original_gc;
original_gc = GC_switch_to_master_gc();
scheme_start_atomic();
# endif
if (prefab_table) { if (prefab_table) {
a = scheme_lookup_in_table(prefab_table, (const char *)key); a = scheme_lookup_in_table(prefab_table, (const char *)key);
} }
# if defined(MZ_USE_PLACES) && defined(MZ_PRECISE_GC) if (a)
scheme_end_atomic_no_swap(); return (Scheme_Struct_Type *)SCHEME_WEAK_BOX_VAL(a);
GC_switch_back_from_master(original_gc);
# endif
if (a) {
return (Scheme_Struct_Type *) SCHEME_WEAK_BOX_VAL(a);
}
return NULL; return NULL;
} }