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

cs & io: avoid spinning if epoll/kqueue setup fails

Browse Source
This commit is contained in:
Matthew Flatt 2019-09-18 14:01:13 -06:00
parent ec72f5df45
commit 19efcb955d
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
racket/src/io/sandman/ltps.rkt
View File

@ -64,17 +64,19 @@
;; in atomic mode
(define (fd-semaphore-poll-ready?)
(unless (eq? shared-ltps rktio_NULL)
(rktio_ltps_poll rktio shared-ltps)
(let loop ([did? #f])
(define h (rktio_ltps_get_signaled_handle rktio shared-ltps))
(cond
[(rktio-error? h)
;; Could log an error that isn't RKTIO_ERROR_LTPS_NOT_FOUND
did?]
[else
(define ib (address->immobile-cell (rktio_ltps_handle_get_data rktio h)))
(semaphore-post-all (immobile-cell-ref ib))
(free-immobile-cell ib)
(rktio_free h)
(loop #t)]))))
(cond
[(eq? shared-ltps rktio_NULL) #f]
[else
(rktio_ltps_poll rktio shared-ltps)
(let loop ([did? #f])
(define h (rktio_ltps_get_signaled_handle rktio shared-ltps))
(cond
[(rktio-error? h)
;; Could log an error that isn't RKTIO_ERROR_LTPS_NOT_FOUND
did?]
[else
(define ib (address->immobile-cell (rktio_ltps_handle_get_data rktio h)))
(semaphore-post-all (immobile-cell-ref ib))
(free-immobile-cell ib)
(rktio_free h)
(loop #t)]))]))