hedgewars/uDebug.pas
branchqmlfrontend
changeset 11408 b894922d58cc
parent 11071 3851ce4f2061
parent 11342 ed5a6478e710
child 11549 b69f5f22a3ba
--- a/hedgewars/uDebug.pas	Tue Sep 08 19:20:58 2015 +0300
+++ b/hedgewars/uDebug.pas	Mon Nov 16 22:57:24 2015 +0300
@@ -24,7 +24,7 @@
 
 procedure OutError(Msg: shortstring; isFatalError: boolean);
 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline;
-procedure SDLTry(Assert: boolean; isFatal: boolean);
+procedure SDLTry(Assert: boolean; Msg: shortstring; isFatal: boolean);
 
 implementation
 uses SDLh, uConsole, uCommands, uConsts;
@@ -42,13 +42,13 @@
     OutError(Msg, isFatal)
 end;
 
-procedure SDLTry(Assert: boolean; isFatal: boolean);
+procedure SDLTry(Assert: boolean; Msg: shortstring; isFatal: boolean);
 var s: shortstring;
 begin
 if not Assert then
     begin
     s:= SDL_GetError();
-    OutError(s, isFatal)
+    OutError(Msg + ': ' + s, isFatal)
     end
 end;