equal
deleted
inserted
replaced
22 |
22 |
23 interface |
23 interface |
24 |
24 |
25 procedure OutError(Msg: shortstring; isFatalError: boolean); |
25 procedure OutError(Msg: shortstring; isFatalError: boolean); |
26 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline; |
26 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline; |
27 procedure SDLTry(Assert: boolean; isFatal: boolean); |
27 procedure SDLTry(Assert: boolean; Msg: shortstring; isFatal: boolean); |
28 |
28 |
29 implementation |
29 implementation |
30 uses SDLh, uConsole, uCommands, uConsts; |
30 uses SDLh, uConsole, uCommands, uConsts; |
31 |
31 |
32 procedure OutError(Msg: shortstring; isFatalError: boolean); |
32 procedure OutError(Msg: shortstring; isFatalError: boolean); |
45 begin |
45 begin |
46 if not Assert then |
46 if not Assert then |
47 OutError(Msg, isFatal) |
47 OutError(Msg, isFatal) |
48 end; |
48 end; |
49 |
49 |
50 procedure SDLTry(Assert: boolean; isFatal: boolean); |
50 procedure SDLTry(Assert: boolean; Msg: shortstring; isFatal: boolean); |
51 var s: shortstring; |
51 var s: shortstring; |
52 begin |
52 begin |
53 if not Assert then |
53 if not Assert then |
54 begin |
54 begin |
55 s:= SDL_GetError(); |
55 s:= SDL_GetError(); |
56 OutError(s, isFatal) |
56 OutError(Msg + ': ' + s, isFatal) |
57 end |
57 end |
58 end; |
58 end; |
59 |
59 |
60 end. |
60 end. |