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

ffi/com: fix another GC problem, this time related to custodians

Browse Source
This commit is contained in:
Matthew Flatt 2012-04-04 07:16:50 -06:00
parent 522a92970e
commit e62f812941
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/ffi/unsafe/com.rkt
View File

@ -517,10 +517,10 @@
(define scheme_add_managed
(get-ffi-obj 'scheme_add_managed #f
(_fun _racket _racket _fpointer _racket _int
-> _pointer)))
-> _gcpointer)))
(define scheme_remove_managed
(get-ffi-obj 'scheme_remove_managed #f
(_fun _pointer _racket -> _void)))
(_fun _gcpointer _racket -> _void)))
(define (custodian-shutdown-com obj proc-self) (com-release obj))
(define custodian_shutdown_com
(cast custodian-shutdown-com (_fun #:atomic? #t _racket _racket -> _void) _fpointer))