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

Add mark call for place->mref

Browse Source
This commit is contained in:
Kevin Tew 2011-06-27 09:16:30 -06:00
parent 0648d3ceb4
commit d7785a3520
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/mzmark_place.inc
View File

@ -35,6 +35,7 @@ static int place_val_SIZE(void *p, struct NewGC *gc) {
static int place_val_MARK(void *p, struct NewGC *gc) { static int place_val_MARK(void *p, struct NewGC *gc) {
Scheme_Place *pr = (Scheme_Place *)p; Scheme_Place *pr = (Scheme_Place *)p;
gcMARK2(pr->channel, gc); gcMARK2(pr->channel, gc);
gcMARK2(pr->mref, gc);
return return
gcBYTES_TO_WORDS(sizeof(Scheme_Place)); gcBYTES_TO_WORDS(sizeof(Scheme_Place));
@ -43,6 +44,7 @@ static int place_val_MARK(void *p, struct NewGC *gc) {
static int place_val_FIXUP(void *p, struct NewGC *gc) { static int place_val_FIXUP(void *p, struct NewGC *gc) {
Scheme_Place *pr = (Scheme_Place *)p; Scheme_Place *pr = (Scheme_Place *)p;
gcFIXUP2(pr->channel, gc); gcFIXUP2(pr->channel, gc);
gcFIXUP2(pr->mref, gc);
return return
gcBYTES_TO_WORDS(sizeof(Scheme_Place)); gcBYTES_TO_WORDS(sizeof(Scheme_Place));

1
src/racket/src/mzmarksrc.c
View File

@ -1449,6 +1449,7 @@ place_val {
mark: mark:
Scheme_Place *pr = (Scheme_Place *)p; Scheme_Place *pr = (Scheme_Place *)p;
gcMARK2(pr->channel, gc); gcMARK2(pr->channel, gc);
gcMARK2(pr->mref, gc);
size: size:
gcBYTES_TO_WORDS(sizeof(Scheme_Place)); gcBYTES_TO_WORDS(sizeof(Scheme_Place));