hedgewars/uMisc.pas
changeset 3407 dcc129c4352e
parent 3381 f8800c44b3de
child 3463 23c50be687a9
--- a/hedgewars/uMisc.pas	Sun May 02 20:30:23 2010 +0000
+++ b/hedgewars/uMisc.pas	Sun May 02 22:00:50 2010 +0000
@@ -170,7 +170,7 @@
 {$ENDIF}
 
 implementation
-uses Math, uConsole, uStore, uIO, uRandom, uSound, typinfo;
+uses Math, uConsole, uStore, uIO, uSound, typinfo;
 
 var KBnum: Longword;
 {$IFDEF DEBUGFILE}
@@ -246,14 +246,15 @@
 
 procedure OutError(Msg: shortstring; isFatalError: boolean);
 begin
-{$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
+// obsolete? written in WriteLnToConsole() anyway
+// {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
 WriteLnToConsole(Msg);
 if isFatalError then
-begin
-SendIPC('E' + GetLastConsoleLine);
-SDL_Quit;
-halt(1)
-end
+    begin
+    SendIPC('E' + GetLastConsoleLine);
+    SDL_Quit;
+    halt(1)
+    end
 end;
 
 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean);