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.