hedgewars/uDebug.pas
branchqmlfrontend
changeset 12876 b544bbbd0696
parent 11544 b69f5f22a3ba
--- 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;