hedgewars/uStore.pas
changeset 15351 3907c95227b8
parent 15344 9fca575e3c88
child 15352 410a83aa9d9a
--- a/hedgewars/uStore.pas	Fri Aug 23 19:26:52 2019 +0300
+++ b/hedgewars/uStore.pas	Fri Aug 23 21:04:40 2019 +0300
@@ -438,7 +438,7 @@
                     for y := 0 to tmpsurf^.h-1 do
                         begin
                         for x := 0 to tmpsurf^.w - 1 do
-                            (rowData + x)^:= (PByte(tmpsurf^.pixels) + y * tmpsurf^.pitch + x * 4 + AByteIndex)^;
+                            PByteArray(rowData)^[x] := PByteArray(tmpsurf^.pixels)^[y * tmpsurf^.pitch + x * 4 + AByteIndex];
                         syncedPixelDigest:= Adler32Update(syncedPixelDigest, rowData, tmpsurf^.w);
                         end;
                     FreeMem(rowData, tmpsurf^.w);