equal
deleted
inserted
replaced
40 end |
40 end |
41 end; |
41 end; |
42 |
42 |
43 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
43 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
44 begin |
44 begin |
45 if not Assert then OutError(Msg, isFatal) |
45 if not Assert then |
|
46 OutError(Msg, isFatal) |
46 end; |
47 end; |
47 |
48 |
48 procedure SDLTry(Assert: boolean; isFatal: boolean); |
49 procedure SDLTry(Assert: boolean; isFatal: boolean); |
49 begin |
50 begin |
50 if not Assert then OutError(SDL_GetError, isFatal) |
51 if not Assert then |
|
52 OutError(SDL_GetError, isFatal) |
51 end; |
53 end; |
52 |
54 |
53 end. |
55 end. |