hedgewars/uLand.pas
changeset 10131 4b4a043111f4
parent 10108 c68cf030eded
child 10142 adb804cb2638
--- a/hedgewars/uLand.pas	Tue Feb 11 22:05:03 2014 +0400
+++ b/hedgewars/uLand.pas	Wed Feb 12 00:50:15 2014 +0400
@@ -420,7 +420,7 @@
         else
             LandPixels[y div 2, x div 2]:= p^[x] or AMask;
 
-    p:= @(p^[Surface^.pitch div 4]);
+    p:= PLongwordArray(@(p^[Surface^.pitch div 4]));
     end;
 
 if SDL_MustLock(Surface) then
@@ -595,7 +595,7 @@
             begin
             for x:= 0 to Pred(tmpsurf^.w) do
                 SetLand(Land[cpY + y, cpX + x], p^[x]);
-            p:= @(p^[tmpsurf^.pitch div 4]);
+            p:= PLongwordArray(@(p^[tmpsurf^.pitch div 4]));
             end;
 
     if SDL_MustLock(tmpsurf) then