--- a/hedgewars/uDebug.pas Wed Dec 27 00:59:26 2017 +0100
+++ b/hedgewars/uDebug.pas Tue Jan 02 23:45:18 2018 +0100
@@ -31,7 +31,7 @@
allOK: boolean;
implementation
-uses SDLh, uConsole, uCommands, uConsts;
+uses SDLh, uConsole, uCommands, uConsts, sysutils;
procedure OutError(Msg: shortstring; isFatalError: boolean);
begin
@@ -52,6 +52,7 @@
OutError(Msg, false);
allOK:= allOK and (Assert or (not isFatal));
+ if not allOk then raise Exception.create(msg);
checkFails:= (not Assert) and isFatal
end;
@@ -65,6 +66,7 @@
end;
allOK:= allOK and (Assert or (not isFatal));
+ if not allOk then raise Exception.create(msg);
SDLCheck:= (not Assert) and isFatal
end;