changeset 7134 | beb16926ae5c |
parent 6700 | e04da46ee43c |
child 8437 | 93b647d6a00f |
7132:baf3351646f4 | 7134:beb16926ae5c |
---|---|
45 if not Assert then |
45 if not Assert then |
46 OutError(Msg, isFatal) |
46 OutError(Msg, isFatal) |
47 end; |
47 end; |
48 |
48 |
49 procedure SDLTry(Assert: boolean; isFatal: boolean); |
49 procedure SDLTry(Assert: boolean; isFatal: boolean); |
50 var s: shortstring; |
|
50 begin |
51 begin |
51 if not Assert then |
52 if not Assert then |
52 OutError(SDL_GetError, isFatal) |
53 begin |
54 s:= SDL_GetError(); |
|
55 OutError(s, isFatal) |
|
56 end |
|
53 end; |
57 end; |
54 |
58 |
55 end. |
59 end. |