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

ffi/unsafe/objc: weaken cache of method-invoke functions

Browse Source 
A non-weak table meant that on Cocoa, every key press leaked a
foreign-funciton stub.
This commit is contained in:
Matthew Flatt 2013-03-29 08:09:57 -06:00
parent 8e25f42fbc
commit 99453ac506
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/objc.rkt
View File

@ -307,12 +307,12 @@
(as-atomic (hash-set! msgSends types m)) (as-atomic (hash-set! msgSends types m))
m))))) m)))))
(define msgSends (make-hash)) (define msgSends (make-weak-hash))
(define (objc_msgSend/typed types) (define (objc_msgSend/typed types)
(lookup-send types msgSends objc_msgSend objc_msgSend_fpret objc_msgSend_stret _id)) (lookup-send types msgSends objc_msgSend objc_msgSend_fpret objc_msgSend_stret _id))
(provide objc_msgSend/typed) (provide objc_msgSend/typed)
(define msgSendSupers (make-hash)) (define msgSendSupers (make-weak-hash))
(define (objc_msgSendSuper/typed types) (define (objc_msgSendSuper/typed types)
(lookup-send types msgSendSupers objc_msgSendSuper objc_msgSendSuper_fpret objc_msgSendSuper_stret _pointer)) (lookup-send types msgSendSupers objc_msgSendSuper objc_msgSendSuper_fpret objc_msgSendSuper_stret _pointer))
(provide objc_msgSendSuper/typed) (provide objc_msgSendSuper/typed)