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

Prehashed kernel_modidx empty_self_modidx, avoided unneeded late write of NULL in kernel env

Browse Source 
svn: r16155
This commit is contained in:
Kevin Tew 2009-09-28 22:08:18 +00:00
parent 0e89f5c580
commit cdeb27255e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/module.c
View File

@ -338,6 +338,7 @@ void scheme_init_module(Scheme_Env *env)
scheme_make_pair(kernel_symbol, scheme_make_pair(kernel_symbol,
scheme_null)), scheme_null)),
scheme_false, kernel_modname); scheme_false, kernel_modname);
scheme_hash_key(kernel_modidx);
unsafe_modname = scheme_intern_resolved_module_path(scheme_intern_symbol("#%unsafe")); unsafe_modname = scheme_intern_resolved_module_path(scheme_intern_symbol("#%unsafe"));
REGISTER_SO(module_symbol); REGISTER_SO(module_symbol);
@ -5567,6 +5568,7 @@ static Scheme_Object *do_module(Scheme_Object *form, Scheme_Comp_Env *env,
REGISTER_SO(empty_self_modidx); REGISTER_SO(empty_self_modidx);
REGISTER_SO(empty_self_modname); REGISTER_SO(empty_self_modname);
empty_self_modidx = scheme_make_modidx(scheme_false, scheme_false, scheme_false); empty_self_modidx = scheme_make_modidx(scheme_false, scheme_false, scheme_false);
scheme_hash_key(empty_self_modidx);
empty_self_modname = scheme_make_symbol("expanded module"); /* uninterned */ empty_self_modname = scheme_make_symbol("expanded module"); /* uninterned */
empty_self_modname = scheme_intern_resolved_module_path(empty_self_modname); empty_self_modname = scheme_intern_resolved_module_path(empty_self_modname);
} }
@ -8827,7 +8829,7 @@ void scheme_do_module_rename_unmarshal(Scheme_Object *rn, Scheme_Object *info,
pt = (Scheme_Module_Phase_Exports *)scheme_hash_get(me->other_phases, pt_phase); pt = (Scheme_Module_Phase_Exports *)scheme_hash_get(me->other_phases, pt_phase);
if (pt) { if (pt) {
if (!pt->src_modidx) if (!pt->src_modidx && me->src_modidx)
pt->src_modidx = me->src_modidx; pt->src_modidx = me->src_modidx;
scheme_extend_module_rename_with_shared(rn, orig_idx, pt, pt->phase_index, src_phase_index, marks, 0); scheme_extend_module_rename_with_shared(rn, orig_idx, pt, pt->phase_index, src_phase_index, marks, 0);
} }