hedgewars/uDebug.pas
branchsdl2transition
changeset 9682 aa2431ed87b2
parent 9301 c5d1c8259ef4
child 11342 ed5a6478e710
--- a/hedgewars/uDebug.pas	Tue Nov 05 23:33:23 2013 +0100
+++ b/hedgewars/uDebug.pas	Thu Nov 07 21:06:30 2013 +0400
@@ -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;
@@ -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;