changeset 13484 | 480ea997036b |
parent 13078 | dd904dd9c587 |
child 13503 | 4f00b08d6f1e |
13482:c265a3e6f6da | 13484: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; |