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

fix missing initialization of cached inspector reference

Browse Source 
The 3m transformation fills it in, but it's obviously
better to be explicit and avoid the bug for CGC.
This commit is contained in:
Matthew Flatt 2013-02-28 11:11:07 -07:00
parent 542c38ebc5
commit ca4320467c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/hash.c
View File

@ -948,6 +948,8 @@ static Scheme_Object *hash_recur(int argc, Scheme_Object **argv, Scheme_Object *
hi->insp = NULL; /* in case recursive call is `parameterize'd */
v = to_signed_hash(equal_hash_key(argv[0], 0, hi));
hi->insp = NULL;
return scheme_make_integer(v);
}
@ -1770,6 +1772,7 @@ static uintptr_t equal_hash_key2(Scheme_Object *o, Hash_Info *hi)
if (scheme_struct_is_transparent(o))
insp = NULL;
else {
insp = hi->insp;
if (!insp) {
insp = scheme_get_param(scheme_current_config(), MZCONFIG_INSPECTOR);
hi->insp = insp;