hedgewars/uSound.pas
changeset 14878 4e3d81af71bf
parent 14831 64f88108926b
child 14912 3a53309e684b
--- a/hedgewars/uSound.pas	Sat May 04 21:03:26 2019 +0200
+++ b/hedgewars/uSound.pas	Sat May 04 21:37:22 2019 +0200
@@ -380,6 +380,7 @@
 procedure InitSound;
 const channels: LongInt = 2;
 var success: boolean;
+    s: shortstring;
 begin
     if not (isSoundEnabled or isMusicEnabled) then
         begin
@@ -412,7 +413,8 @@
 
     if (Mix_Init(MIX_INIT_OGG or MIX_INIT_OPUS) and MIX_INIT_OPUS) = 0 then
     begin
-      WriteToConsole('Cannot init OPUS: ' + SDL_GetError());
+      s:= SDL_GetError();
+      WriteToConsole('Cannot init OPUS: ' + s);
 
       if SDLCheck(Mix_Init(MIX_INIT_OGG) <> 0, 'Mix_Init', true) then exit;
     end;