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-26 16:51:01 +01:00
parent c2ef8bcc99
commit eac031c17f
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
libao/libao-async.rkt
View File

@@ -94,7 +94,7 @@
(set-ao-shm-bufsize! shm (- bs buf-len))) (set-ao-shm-bufsize! shm (- bs buf-len)))
(mutex-unlock (ao-shm-mutex shm)) (mutex-unlock (ao-shm-mutex shm))
(ao_play ao-device buf buf-len) ; Play this buffer part (ao_play ao-device buf buf-len) ; Play this buffer part
(free buf) ; Free the previously malloc 'raw (see libao.rkt) ;(free buf) ; Free the previously malloc 'raw (see libao.rkt)
)] )]
) )
(player) (player)

2
libao/libao.rkt
View File

@@ -187,7 +187,7 @@
(audio-buf-len (* channels bytes-per-sample buf-len)) (audio-buf-len (* channels bytes-per-sample buf-len))
(audio (if (eq? libao-async-mode 'ffi) (audio (if (eq? libao-async-mode 'ffi)
(malloc 'atomic audio-buf-len) (malloc 'atomic audio-buf-len)
(malloc 'raw audio-buf-len))) (malloc 'atomic audio-buf-len))) ; was: 'raw
(get-sample (lambda (k channel) (get-sample (lambda (k channel)
(let ((chan-buf (list-ref buffer channel))) (let ((chan-buf (list-ref buffer channel)))
(vector-ref chan-buf k)))) (vector-ref chan-buf k))))