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

make bytecode compiler less picky about exports

Browse Source 
Closes PR 12134
This commit is contained in:
Matthew Flatt 2011-08-28 11:21:15 -06:00
parent 2692d119be
commit 98bc4067c3
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/racket/src/module.c
View File

@ -3504,19 +3504,24 @@ static void setup_accessible_table(Scheme_Module *m)
if (SCHEME_SYMBOLP(tl)) { if (SCHEME_SYMBOLP(tl)) {
Scheme_Object *v; Scheme_Object *v;
v = scheme_hash_get(ht, tl); v = scheme_hash_get(ht, tl);
if (!v) scheme_signal_error("internal error: defined name inaccessible"); if (!v) {
if ((SCHEME_VEC_SIZE(form) == 2) /* The defined name is inaccessible. The bytecode compiler
&& scheme_compiled_duplicate_ok(SCHEME_VEC_ELS(form)[0], 1)) { won't generate such modules, but synthesized module bytecode
/* record simple constant from cross-module propagation: */ might leave bindings out of the `toplevels' table. */
v = scheme_make_pair(v, SCHEME_VEC_ELS(form)[0]);
} else if (is_procedure_expression(SCHEME_VEC_ELS(form)[0])) {
/* record that it's constant across all instantiations: */
v = scheme_make_pair(v, scheme_constant_key);
} else { } else {
/* record that it's fixed for any given instantiations: */ if ((SCHEME_VEC_SIZE(form) == 2)
v = scheme_make_pair(v, scheme_fixed_key); && scheme_compiled_duplicate_ok(SCHEME_VEC_ELS(form)[0], 1)) {
/* record simple constant from cross-module propagation: */
v = scheme_make_pair(v, SCHEME_VEC_ELS(form)[0]);
} else if (is_procedure_expression(SCHEME_VEC_ELS(form)[0])) {
/* record that it's constant across all instantiations: */
v = scheme_make_pair(v, scheme_constant_key);
} else {
/* record that it's fixed for any given instantiation: */
v = scheme_make_pair(v, scheme_fixed_key);
}
scheme_hash_set(ht, tl, v);
} }
scheme_hash_set(ht, tl, v);
} else } else
scheme_signal_error("internal error: strange defn target %d", SCHEME_TYPE(tl)); scheme_signal_error("internal error: strange defn target %d", SCHEME_TYPE(tl));
} }