Changeset 29844 in project


Ignore:
Timestamp:
10/04/13 15:45:59 (6 years ago)
Author:
Christian Kellermann
Message:

sdl-mixer: Fix initialisation bug and pipe fd mixup, thanks to Youbi_ for nagging me

Location:
release/4/sdl-mixer/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/sdl-mixer/trunk/sdl-mixer-lolevel.scm

    r27382 r29844  
    172172        (define (make-waiter-thread handler)
    173173          (let-values (((in out) (create-pipe)))
    174             (set! channel_callback_fd in)
    175             (let ((p (open-input-file* out)))
     174            (set! channel_callback_fd out)
     175            (let ((p (open-input-file* in)))
    176176              (let loop ()
    177                 (thread-wait-for-i/o! out #:input)
     177                (thread-wait-for-i/o! in #:input)
    178178                (let ((v (read p)))
    179179                  (unless (eof-object? v)
     
    272272        (define (make-music-waiter-thread handler)
    273273          (let-values (((in out) (create-pipe)))
    274             (set! music_callback_fd in)
    275             (let ((p (open-input-file* out)))
     274            (set! music_callback_fd out)
     275            (let ((p (open-input-file* in)))
    276276              (let loop ()
    277                 (thread-wait-for-i/o! out #:input)
     277                (thread-wait-for-i/o! in #:input)
    278278                (let ((v (read p)))
    279279                  (unless (eof-object? v)
  • release/4/sdl-mixer/trunk/sdl-mixer.scm

    r26911 r29844  
    4444         (mix-close-audio))
    4545   (unless initialized
    46            ((foreign-lambda void "SDL_init" int)
     46           ((foreign-lambda void "SDL_Init" unsigned-integer32)
    4747            (foreign-value "SDL_INIT_AUDIO" int))
    4848           (mix-init (bitwise-ior MIX_INIT_MP3 MIX_INIT_OGG MIX_INIT_FLAC))
Note: See TracChangeset for help on using the changeset viewer.