workaround to fix pas2c mistyping a constant as bool
authorsheepluva
Sat, 30 Sep 2017 14:00:02 +0200
changeset 12612 2ffdee246adc
parent 12611 fb0734d5dd87
child 12614 806b6088863a
workaround to fix pas2c mistyping a constant as bool
hedgewars/SDLh.pas
hedgewars/uSound.pas
--- a/hedgewars/SDLh.pas	Sat Sep 30 04:31:50 2017 +0200
+++ b/hedgewars/SDLh.pas	Sat Sep 30 14:00:02 2017 +0200
@@ -100,7 +100,8 @@
     AUDIO_S16SYS         = {$IFDEF ENDIAN_LITTLE}AUDIO_S16LSB{$ELSE}AUDIO_S16MSB{$ENDIF};
 
     // default audio format from SDL_mixer.h
-    MIX_DEFAULT_FORMAT   = AUDIO_S16SYS;
+    //MIX_DEFAULT_FORMAT   = AUDIO_S16SYS;
+    MIX_DEFAULT_FORMAT   = {$IFDEF ENDIAN_LITTLE}AUDIO_S16LSB{$ELSE}AUDIO_S16MSB{$ENDIF};
 
     SDL_BUTTON_LEFT      = 1;
     SDL_BUTTON_MIDDLE    = 2;
--- a/hedgewars/uSound.pas	Sat Sep 30 04:31:50 2017 +0200
+++ b/hedgewars/uSound.pas	Sat Sep 30 14:00:02 2017 +0200
@@ -324,10 +324,14 @@
     if not (isSoundEnabled or isMusicEnabled) then
         exit;
     WriteToConsole('Init sound...');
-    success:= SDL_InitSubSystem(SDL_INIT_AUDIO) >= 0;
+    success:= SDL_InitSubSystem(SDL_INIT_AUDIO) = 0;
 
     if success then
+        begin
+        WriteLnToConsole(msgOK);
+        WriteToConsole('Open audio...');
         success:= Mix_OpenAudio(44100, MIX_DEFAULT_FORMAT, channels, 1024) = 0;
+        end;
 
     if success then
         WriteLnToConsole(msgOK)