hedgewars/uIO.pas
changeset 10307 e13d3147f15b
parent 10306 4fca8bcfaff0
child 10343 fe9853dea6c4
--- a/hedgewars/uIO.pas	Sun Jun 15 00:02:25 2014 +0200
+++ b/hedgewars/uIO.pas	Sun Jun 15 04:33:54 2014 +0200
@@ -416,7 +416,11 @@
     SendIPC('E' + s);
     // TODO: should we try to clean more stuff here?
     SDL_Quit;
-    halt(HaltFatalError);
+
+    if IPCSock <> nil then
+        halt(HaltFatalError)
+    else
+        halt(HaltFatalErrorNoIPC);
 end;
 
 procedure doPut(putX, putY: LongInt; fromAI: boolean);