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

Add finalizer for place-channel's mutexes

Browse Source
This commit is contained in:
Kevin Tew 2011-04-19 14:04:23 -06:00
parent 45253454c7
commit 8e2c09ac2f
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/racket/src/places.c
View File

@ -1426,6 +1426,12 @@ static void* GC_master_malloc_tagged(size_t size) {
return ptr;
}
static void async_channel_finialize(void *p, void* data) {
Scheme_Place_Async_Channel *ch;
ch = (Scheme_Place_Async_Channel*)p;
mzrt_mutex_destroy(ch->lock);
}
Scheme_Place_Async_Channel *scheme_place_async_channel_create() {
Scheme_Object **msgs;
Scheme_Place_Async_Channel *ch;
@ -1444,6 +1450,7 @@ Scheme_Place_Async_Channel *scheme_place_async_channel_create() {
ch->msgs = msgs;
ch->msg_memory = msg_memory;
ch->wakeup_signal = NULL;
scheme_register_finalizer(ch, async_channel_finialize, NULL, NULL, NULL);
return ch;
}