Permalink
Browse files

Add mark call for place->mref

  • Loading branch information...
tewk committed Jun 27, 2011
1 parent 0648d3c commit d7785a352094a6cdf50e052d23081937997d006c
Showing with 3 additions and 0 deletions.
  1. +2 −0 src/racket/src/mzmark_place.inc
  2. +1 −0 src/racket/src/mzmarksrc.c
@@ -35,6 +35,7 @@ static int place_val_SIZE(void *p, struct NewGC *gc) {
static int place_val_MARK(void *p, struct NewGC *gc) {
Scheme_Place *pr = (Scheme_Place *)p;
gcMARK2(pr->channel, gc);
+ gcMARK2(pr->mref, gc);
return
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) {
Scheme_Place *pr = (Scheme_Place *)p;
gcFIXUP2(pr->channel, gc);
+ gcFIXUP2(pr->mref, gc);
return
gcBYTES_TO_WORDS(sizeof(Scheme_Place));
@@ -1449,6 +1449,7 @@ place_val {
mark:
Scheme_Place *pr = (Scheme_Place *)p;
gcMARK2(pr->channel, gc);
+ gcMARK2(pr->mref, gc);
size:
gcBYTES_TO_WORDS(sizeof(Scheme_Place));

0 comments on commit d7785a3

Please sign in to comment.