hedgewars/uDebug.pas
changeset 10306 4fca8bcfaff0
parent 10108 c68cf030eded
child 10418 091d2c0216c3
child 11046 47a8c19ecb60
--- a/hedgewars/uDebug.pas	Sat Jun 14 23:59:20 2014 +0200
+++ b/hedgewars/uDebug.pas	Sun Jun 15 00:02:25 2014 +0200
@@ -27,13 +27,18 @@
 procedure SDLTry(Assert: boolean; isFatal: boolean);
 
 implementation
-uses SDLh, uConsole, uCommands;
+uses SDLh, uConsole, uCommands, uConsts;
 
 procedure OutError(Msg: shortstring; isFatalError: boolean);
 begin
 WriteLnToConsole(Msg);
 if isFatalError then
+    begin
     ParseCommand('fatal ' + lastConsoleline, true);
+    // hint for the 'coverity' source analyzer
+    // this halt is never actually reached because ParseCommands will halt first
+    halt(HaltFatalError);
+    end;
 end;
 
 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean);