From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Thu, 7 Apr 2016 16:33:03 +0000 (+0300)
Subject: sdlmixer: report Mix_QuerySpec results
X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=commitdiff_plain;h=f3b2a7bd76e861edf57f0d34b51da74517790ff9

sdlmixer: report Mix_QuerySpec results
---

diff --git a/src/engine/e_sound_sdl.inc b/src/engine/e_sound_sdl.inc
index eb039a2..0aca065 100644
--- a/src/engine/e_sound_sdl.inc
+++ b/src/engine/e_sound_sdl.inc
@@ -155,6 +155,9 @@ end;
 function e_InitSoundSystem(): Boolean;
 var
   res, i: Integer;
+  rfreq: Integer;
+  rformat: UInt16;
+  rchans: Integer;
 begin
   if SoundInitialized then begin Result := true; Exit end;
 
@@ -181,6 +184,11 @@ begin
     Exit;
   end;
 
+  if Mix_QuerySpec(@rfreq, @rformat, @rchans) > 0 then
+  begin
+    e_WriteLog(Format('SDL: frequency=%d; format=%u; channels=%d', [rfreq, rformat, rchans]), MSG_NOTIFY);
+  end;
+
   Mix_AllocateChannels(N_CHANNELS);
   Mix_ChannelFinished(chanFinished);