flac problems for os threads solved.

2026-06-29 15:10:15 +02:00
parent c4e1a78527
commit b38983109b
4 changed files with 206 additions and 51 deletions
@@ -15,8 +15,6 @@
           flac-stop
           flac-seek
           (all-from-out "flac-definitions.rkt")
-           kinds
-           last-buffer last-buf-len
           )

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -42,24 +40,13 @@
  (define (flac-stream-state handle)
    ((flac-handle-ffi-decoder-handler handle) 'state))

-
-  (define kinds (make-hash))
-  (define last-buffer #f)
-  (define last-buf-len #f)
-
-
-   (define (process-frame handle h mem-out)
+  (define (process-frame handle h mem-out)
     (let* ([cb-audio (flac-handle-cb-audio handle)]
            [type     (hash-ref h 'number-type)]
            [buf-size (bytes-length mem-out)])

       (hash-set! h 'duration (flac-duration handle))

-       (set! last-buffer mem-out)
-       (set! last-buf-len buf-size)
-
-       (hash-set! kinds type #t)
-
       (when (procedure? cb-audio)
         (cb-audio h mem-out buf-size))