hedgewars/uDebug.pas
branchphysfslayer
changeset 8520 1dedcc37bfe8
parent 8437 93b647d6a00f
child 9080 9b42757d7e71
equal deleted inserted replaced
8056:d5d5e1698554 8520:1dedcc37bfe8
    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
    36     begin
    37     ParseCommand('fatal ' + GetLastConsoleLine, true);
    37     ParseCommand('fatal ' + lastConsoleline, true);
    38     SDL_Quit;
    38     SDL_Quit;
    39     halt(1)
    39     halt(1)
    40     end
    40     end
    41 end;
    41 end;
    42 
    42