Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Add mark call for place->mref

  • Loading branch information...
commit d7785a352094a6cdf50e052d23081937997d006c 1 parent 0648d3c
tewk authored June 27, 2011
2  src/racket/src/mzmark_place.inc
@@ -35,6 +35,7 @@ static int place_val_SIZE(void *p, struct NewGC *gc) {
35 35
 static int place_val_MARK(void *p, struct NewGC *gc) {
36 36
   Scheme_Place *pr = (Scheme_Place *)p;
37 37
   gcMARK2(pr->channel, gc);
  38
+  gcMARK2(pr->mref, gc);
38 39
 
39 40
   return
40 41
   gcBYTES_TO_WORDS(sizeof(Scheme_Place));
@@ -43,6 +44,7 @@ static int place_val_MARK(void *p, struct NewGC *gc) {
43 44
 static int place_val_FIXUP(void *p, struct NewGC *gc) {
44 45
   Scheme_Place *pr = (Scheme_Place *)p;
45 46
   gcFIXUP2(pr->channel, gc);
  47
+  gcFIXUP2(pr->mref, gc);
46 48
 
47 49
   return
48 50
   gcBYTES_TO_WORDS(sizeof(Scheme_Place));
1  src/racket/src/mzmarksrc.c
@@ -1449,6 +1449,7 @@ place_val {
1449 1449
  mark:
1450 1450
   Scheme_Place *pr = (Scheme_Place *)p;
1451 1451
   gcMARK2(pr->channel, gc);
  1452
+  gcMARK2(pr->mref, gc);
1452 1453
 
1453 1454
  size:
1454 1455
   gcBYTES_TO_WORDS(sizeof(Scheme_Place));

0 notes on commit d7785a3

Please sign in to comment.
Something went wrong with that request. Please try again.