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

fix closure GC handling when closure is only half-formed

Browse Source
This commit is contained in:
Matthew Flatt 2011-05-06 09:20:17 -06:00
parent 503485b5a4
commit 240d95ada6
1 changed files with 44 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/mzclpf_post.inc
View File

@ -10,6 +10,8 @@
if (data) { if (data) {
/* GLOBAL ASSUMPTION: prefix is at the end of a closure */ /* GLOBAL ASSUMPTION: prefix is at the end of a closure */
Scheme_Prefix *pf = (Scheme_Prefix *)c->vals[closure_size - 1]; Scheme_Prefix *pf = (Scheme_Prefix *)c->vals[closure_size - 1];
if (pf) {
/* Since pf hasn't been marked, we don't need a GC_resolve(): */ /* Since pf hasn't been marked, we don't need a GC_resolve(): */
int *use_bits = PREFIX_TO_USE_BITS(pf); int *use_bits = PREFIX_TO_USE_BITS(pf);
uintptr_t map; uintptr_t map;
@ -62,3 +64,4 @@
} }
} }
} }
}