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

fix minor potential GC bugs and add some debugging support

Browse Source 
original commit: 790a91e5208b50c7a1022a8ad5b03c26a7399b82
This commit is contained in:
Matthew Flatt 2010-12-13 16:30:01 -07:00
parent a8eb980fab
commit 40bf1f8500
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/cocoa/queue.rkt
View File

@ -391,4 +391,4 @@
(post-dummy-event) ; why do we need this? 'nextEventMatchingMask:' seems to hang if we don't use it
(set-ffi-obj! 'scheme_sleep #f _pointer (function-ptr sleep-until-event
(_fun #:atomic? #t
_float _pointer -> _void))))
_float _gcpointer -> _void))))

4
collects/mred/private/wx/common/queue.rkt
View File

@ -66,7 +66,7 @@
(define-mz scheme_add_evt (_fun _Scheme_Type
(_fun #:atomic? #t _scheme -> _int)
(_fun #:atomic? #t _scheme _pointer -> _void)
(_fun #:atomic? #t _scheme _gcpointer -> _void)
_pointer
_int
-> _void))
@ -189,7 +189,7 @@
_racket _racket -> _void)
_racket ; data
_int ; strong?
-> _pointer))
-> _gcpointer))
(define (shutdown-eventspace! e ignored)
;; atomic mode

8
collects/mred/private/wx/gtk/queue.rkt
View File

@ -118,10 +118,10 @@
(define POLLERR #x8)
(define POLLHUP #x10)
(define-mz scheme_get_fdset (_fun _pointer _int -> _pointer))
(define-mz scheme_fdset (_fun _pointer _int -> _void))
(define-mz scheme_set_wakeup_time (_fun _pointer _double -> _void))
(define-mz scheme_add_fd_eventmask (_fun _pointer _int -> _void)
(define-mz scheme_get_fdset (_fun _pointer _int -> _gcpointer))
(define-mz scheme_fdset (_fun _gcpointer _int -> _void))
(define-mz scheme_set_wakeup_time (_fun _gcpointer _double -> _void))
(define-mz scheme_add_fd_eventmask (_fun _gcpointer _int -> _void)
#:fail #f)
(define (install-wakeup fds)