another uninitialised value radz[k] for corresponding pa.ar of NTPX
authornemo
Thu, 01 Apr 2010 00:48:26 +0000
changeset 3225 5d8f4737b6cd
parent 3224 f5f4c611bcac
child 3226 906229e77024
another uninitialised value radz[k] for corresponding pa.ar of NTPX
hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Thu Apr 01 00:38:02 2010 +0000
+++ b/hedgewars/uLand.pas	Thu Apr 01 00:48:26 2010 +0000
@@ -508,8 +508,9 @@
 var radz: array[0..Pred(cMaxEdgePoints)] of LongInt;
     i, k, dist, px, py: LongInt;
 begin
-radz[0]:= 0;
 for i:= 0 to Pred(pa.Count) do
+  begin
+  radz[i]:= 0;
   with pa.ar[i] do
     if x <> NTPX then
       begin
@@ -523,6 +524,7 @@
           radz[i]:= Max(0, Min(dist - radz[k] - cMinDist, radz[i]))
         end
       end;
+  end;
 
 for i:= 0 to Pred(pa.Count) do
   with pa.ar[i] do