# HG changeset patch
# User sheepluva
# Date 1272941183 0
# Node ID 310fda7c1dc5681b2767e6c070e2471507f336d9
# Parent  1ca22b3493e9fc1e47286e1788d227b6ce01bd08
fix segfault on destroyed portal

diff -r 1ca22b3493e9 -r 310fda7c1dc5 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Tue May 04 02:34:23 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Tue May 04 02:46:23 2010 +0000
@@ -3045,7 +3045,12 @@
 var iterator: PGear;
     s: hwFloat;
 begin
-    if (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0 then DeleteGear(Gear);
+    if (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0 then
+        begin
+        DeleteGear(Gear);
+        EXIT;
+        end;
+        
     if Gear^.IntersectGear <> nil then
     //if (Gear^.IntersectGear <> nil) then
         begin