hedgewars/uDebug.pas
changeset 7134 beb16926ae5c
parent 6700 e04da46ee43c
child 8437 93b647d6a00f
--- a/hedgewars/uDebug.pas	Fri May 25 15:35:48 2012 +0400
+++ b/hedgewars/uDebug.pas	Mon May 28 17:54:23 2012 +0400
@@ -47,9 +47,13 @@
 end;
 
 procedure SDLTry(Assert: boolean; isFatal: boolean);
+var s: shortstring;
 begin
 if not Assert then
-    OutError(SDL_GetError, isFatal)
+    begin
+    s:= SDL_GetError();
+    OutError(s, isFatal)
+    end
 end;
 
 end.