equal
deleted
inserted
replaced
31 |
31 |
32 procedure OutError(Msg: shortstring; isFatalError: boolean); |
32 procedure OutError(Msg: shortstring; isFatalError: boolean); |
33 begin |
33 begin |
34 WriteLnToConsole(Msg); |
34 WriteLnToConsole(Msg); |
35 if isFatalError then |
35 if isFatalError then |
36 begin |
|
37 ParseCommand('fatal ' + lastConsoleline, true); |
36 ParseCommand('fatal ' + lastConsoleline, true); |
38 SDL_Quit; |
|
39 halt(1) |
|
40 end |
|
41 end; |
37 end; |
42 |
38 |
43 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
39 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); |
44 begin |
40 begin |
45 if not Assert then |
41 if not Assert then |