Changeset 27382 in project
- Timestamp:
- 09/04/12 10:48:59 (9 years ago)
- Location:
- release/4/sdl-mixer/trunk
- Files:
-
- 1 deleted
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/sdl-mixer/trunk/sdl-mixer-lolevel.scm
r27297 r27382 160 160 if (channel_callback_fd >= 0) { 161 161 char chan[3]; 162 int ignore; 162 163 snprintf(chan, 3, "%d\n", channel); 163 write(channel_callback_fd, chan, 2);164 ignore = write(channel_callback_fd, chan, 2); 164 165 } 165 166 } … … 261 262 static void music_finished (){ 262 263 if (music_callback_fd >= 0) { 263 write(music_callback_fd, "1\n", 2);264 int ignore = write(music_callback_fd, "1\n", 2); 264 265 } 265 266 } … … 320 321 "MUS_MID" 321 322 "MUS_OGG" 322 "MUS_MP3" 323 "MUS_MP3_MAD" 324 "MUS_FLAC") 323 "MUS_MP3") 325 324 326 325 (define mix-get-music-type -
release/4/sdl-mixer/trunk/sdl-mixer.setup
r26801 r27382 18 18 (escape-flags 19 19 (with-input-from-pipe "sdl-config --libs" read-line))))) 20 (print "Building with sdl-flags: " sdl-cflags) 21 (print "Building with linker flags: " sdl-lflags) 22 20 23 (for-each (lambda (s) 21 24 (let ((source (string-append s ".scm")) 22 25 (import (string-append s ".import.scm"))) 23 (compile -s -O3 -d1 ,source -J -lSDL _mixer ,sdl-cflags ,sdl-lflags)26 (compile -s -O3 -d1 ,source -J -lSDL -lSDL_mixer ,sdl-cflags ,sdl-lflags) 24 27 (compile -s -O3 -d0 ,import ,sdl-cflags ,sdl-lflags))) 25 28 sources))
Note: See TracChangeset
for help on using the changeset viewer.