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

use weak boxes in the update queue, ditch the explicit calls to collect-garbage

Browse Source 
svn: r9074
This commit is contained in:
Greg Cooper 2008-03-23 20:11:13 +00:00
parent 0f4dbe5933
commit 473136e8b1
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/frtime/frp-core.ss
View File

@ -463,15 +463,20 @@
(define-values (iq-enqueue iq-dequeue iq-empty? iq-resort)
(let* ([depth
(lambda (msg)
(if (signal? msg)
(signal-depth msg)
(signal-depth (first msg))))]
(let ([msg (if (weak-box? msg) (weak-box-value msg) msg)])
(cond
[(cons? msg) (signal-depth (first msg))]
[(signal? msg) (signal-depth msg)]
[else 0])))]
[heap (make-heap
(lambda (b1 b2) (< (depth b1) (depth b2)))
eq?)])
(values
(lambda (b) (heap-insert heap b))
(lambda () (heap-pop heap))
(lambda () (let ([v (heap-pop heap)])
(if (weak-box? v)
(weak-box-value v)
v)))
(lambda () (heap-empty? heap))
(lambda () (let loop ([elts empty])
(if (heap-empty? heap)
@ -626,7 +631,7 @@
; then I send a message. Otherwise, I add to the internal
; priority queue.
(if (< depth (signal-depth dep))
(iq-enqueue dep)
(iq-enqueue wb)
(! man dep))]
[_
(set! empty-boxes (add1 empty-boxes))]))
@ -835,12 +840,7 @@
(set! thunks-to-run empty)
(set-box! logical-time (add1 (unbox logical-time)))
(when (zero? (modulo logical-time 50))
(let ([new-signal-count (hash-table-size signal-cache)])
(when (> new-signal-count (* 2 last-known-signal-count))
(collect-garbage)
(set! last-known-signal-count (hash-table-size signal-cache)))))
(inner)))))))
(define exceptions