hedgewars/uDebug.pas
branchqmlfrontend
changeset 10418 091d2c0216c3
parent 10306 4fca8bcfaff0
child 11071 3851ce4f2061
equal deleted inserted replaced
10416:1c301054694d 10418:091d2c0216c3
    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     // hint for the 'coverity' source analyzer
       
    39     // this halt is never actually reached because ParseCommands will halt first
       
    40     halt(HaltFatalError);
       
    41     end;
       
    42 end;
    37 end;
    43 
    38 
    44 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean);
    39 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean);
    45 begin
    40 begin
    46 if not Assert then
    41 if not Assert then