equal
deleted
inserted
replaced
255 |
255 |
256 procedure OutError(Msg: shortstring; isFatalError: boolean); |
256 procedure OutError(Msg: shortstring; isFatalError: boolean); |
257 begin |
257 begin |
258 // obsolete? written in WriteLnToConsole() anyway |
258 // obsolete? written in WriteLnToConsole() anyway |
259 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
259 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
260 WriteLnToConsole(Msg); |
260 WriteLnToConsole(Msg); |
261 if isFatalError then |
261 if isFatalError then |
262 begin |
262 begin |
263 SendIPC('E' + GetLastConsoleLine); |
263 SendIPC('E' + GetLastConsoleLine); |
264 SDL_Quit; |
264 SDL_Quit; |
265 halt(1) |
265 halt(1) |
266 end |
266 end |
267 end; |
267 end; |
268 |
268 |
269 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
269 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
270 begin |
270 begin |