hans/racket-sound
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
Hans Dijkema
2026-02-25 15:27:00 +01:00
parent 8f6adbab2b
commit 1c1a7e9404
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
libao/libao-async.rkt
View File

@@ -196,15 +196,19 @@
(begin (begin
(displayln "Pausing ao play thread") (displayln "Pausing ao play thread")
(os-semaphore-wait (ao-shm-pause-sem shm)) (os-semaphore-wait (ao-shm-pause-sem shm))
(displayln (format "Setting pause now to ~a" pause))
(mutex-lock (ao-shm-mutex shm)) (mutex-lock (ao-shm-mutex shm))
(set-ao-shm-paused! shm pause) (set-ao-shm-paused! shm pause)
(mutex-unlock (ao-shm-mutex shm))) (mutex-unlock (ao-shm-mutex shm)))
(begin (begin
(displayln "Continuing ao play thread") (displayln (format "Continuing ao play thread, now setting pause to ~a" pause))
(mutex-lock (ao-shm-mutex shm)) (mutex-lock (ao-shm-mutex shm))
(set-ao-shm-paused! shm pause) (set-ao-shm-paused! shm pause)
(mutex-unlock (ao-shm-mutex shm)) (mutex-unlock (ao-shm-mutex shm))
(os-semaphore-post (ao-shm-pause-sem shm))) (displayln "Posting semaphore twice, one to let play thread continue, one for own use")
(os-semaphore-post (ao-shm-pause-sem shm))
(os-semaphote-post (ao-shm-pause-sem shm))
)
) )
) )