equal
deleted
inserted
replaced
278 |
278 |
279 procedure OutError(Msg: shortstring; isFatalError: boolean); |
279 procedure OutError(Msg: shortstring; isFatalError: boolean); |
280 begin |
280 begin |
281 // obsolete? written in WriteLnToConsole() anyway |
281 // obsolete? written in WriteLnToConsole() anyway |
282 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
282 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF} |
283 WriteLnToConsole(Msg); |
283 WriteLnToConsole(Msg); |
284 if isFatalError then |
284 if isFatalError then |
285 begin |
285 begin |
286 SendIPC('E' + GetLastConsoleLine); |
286 SendIPC('E' + GetLastConsoleLine); |
287 SDL_Quit; |
287 SDL_Quit; |
288 halt(1) |
288 halt(1) |
289 end |
289 end |
290 end; |
290 end; |
291 |
291 |
292 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
292 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
293 begin |
293 begin |