equal
deleted
inserted
replaced
29 |
29 |
30 var |
30 var |
31 allOK: boolean; |
31 allOK: boolean; |
32 |
32 |
33 implementation |
33 implementation |
34 uses SDLh, uConsole, uCommands, uConsts; |
34 uses SDLh, uConsole, uCommands, uConsts, sysutils; |
35 |
35 |
36 procedure OutError(Msg: shortstring; isFatalError: boolean); |
36 procedure OutError(Msg: shortstring; isFatalError: boolean); |
37 begin |
37 begin |
38 WriteLnToConsole(Msg); |
38 WriteLnToConsole(Msg); |
39 if isFatalError then |
39 if isFatalError then |
50 begin |
50 begin |
51 if not Assert then |
51 if not Assert then |
52 OutError(Msg, false); |
52 OutError(Msg, false); |
53 |
53 |
54 allOK:= allOK and (Assert or (not isFatal)); |
54 allOK:= allOK and (Assert or (not isFatal)); |
|
55 if not allOk then raise Exception.create(msg); |
55 checkFails:= (not Assert) and isFatal |
56 checkFails:= (not Assert) and isFatal |
56 end; |
57 end; |
57 |
58 |
58 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
59 function SDLCheck(Assert: boolean; Msg: shortstring; isFatal: boolean): boolean; |
59 var s: shortstring; |
60 var s: shortstring; |
63 s:= SDL_GetError(); |
64 s:= SDL_GetError(); |
64 OutError(Msg + ': ' + s, false) |
65 OutError(Msg + ': ' + s, false) |
65 end; |
66 end; |
66 |
67 |
67 allOK:= allOK and (Assert or (not isFatal)); |
68 allOK:= allOK and (Assert or (not isFatal)); |
|
69 if not allOk then raise Exception.create(msg); |
68 SDLCheck:= (not Assert) and isFatal |
70 SDLCheck:= (not Assert) and isFatal |
69 end; |
71 end; |
70 |
72 |
71 end. |
73 end. |