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

register place async channel wakeup_signal with GC

Browse Source
This commit is contained in:
Matthew Flatt 2011-07-06 15:34:36 -06:00
parent 714166a062
commit 79d5572153
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,18 +33,16 @@ static int place_object_val_SIZE(void *p, struct NewGC *gc) {
}
static int place_object_val_MARK(void *p, struct NewGC *gc) {
return
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Object));
}
static int place_object_val_FIXUP(void *p, struct NewGC *gc) {
return
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Object));
}
#define place_object_val_IS_ATOMIC 0
#define place_object_val_IS_ATOMIC 1
#define place_object_val_IS_CONST_SIZE 1
@ -84,6 +82,7 @@ static int place_async_channel_val_MARK(void *p, struct NewGC *gc) {
Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
gcMARK2(pac->msgs, gc);
gcMARK2(pac->msg_memory, gc);
gcMARK2(pac->wakeup_signal, gc);
return
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));
@ -93,6 +92,7 @@ static int place_async_channel_val_FIXUP(void *p, struct NewGC *gc) {
Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
gcFIXUP2(pac->msgs, gc);
gcFIXUP2(pac->msg_memory, gc);
gcFIXUP2(pac->wakeup_signal, gc);
return
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));

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

@ -1443,7 +1443,6 @@ place_bi_channel_val {
place_object_val {
mark:
size:
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Object));
}
@ -1463,6 +1462,7 @@ place_async_channel_val {
Scheme_Place_Async_Channel *pac = (Scheme_Place_Async_Channel *)p;
gcMARK2(pac->msgs, gc);
gcMARK2(pac->msg_memory, gc);
gcMARK2(pac->wakeup_signal, gc);
size:
gcBYTES_TO_WORDS(sizeof(Scheme_Place_Async_Channel));