| changeset 13489 | 480ea997036b |
| parent 13083 | dd904dd9c587 |
| child 13503 | 4f00b08d6f1e |
| 13481:c265a3e6f6da | 13489:480ea997036b |
|---|---|
67 var s: shortstring; |
67 var s: shortstring; |
68 begin |
68 begin |
69 if not Assert then |
69 if not Assert then |
70 begin |
70 begin |
71 s:= SDL_GetError(); |
71 s:= SDL_GetError(); |
72 OutError(Msg + ': ' + s, false) |
72 OutError(Msg + ': ' + s, isFatal) |
73 end; |
73 end; |
74 |
74 |
75 allOK:= allOK and (Assert or (not isFatal)); |
75 allOK:= allOK and (Assert or (not isFatal)); |
76 SDLCheck:= (not Assert) and isFatal |
76 SDLCheck:= (not Assert) and isFatal |
77 end; |
77 end; |