--- a/hedgewars/uStore.pas	Mon Mar 29 23:47:38 2010 +0000
+++ b/hedgewars/uStore.pas	Tue Mar 30 00:02:40 2010 +0000
@@ -64,7 +64,7 @@
 procedure flipSurface(Surface: PSDL_Surface; Vertical: Boolean);
 //procedure rotateSurface(Surface: PSDL_Surface);
 procedure copyRotatedSurface(src, dest: PSDL_Surface); // this is necessary since width/height are read only in SDL
-procedure copyToXY(src, dest: PSDL_Surface; destX, destY: Integer);
+procedure copyToXY(src, dest: PSDL_Surface; destX, destY: LongInt);
 procedure RenderHealth(var Hedgehog: THedgehog);
 procedure AddProgress;
 procedure FinishProgress;
@@ -83,7 +83,7 @@
 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple);
 
 var HHTexture: PTexture;
-    MaxTextureSize: Integer;
+    MaxTextureSize: LongInt;
     cGPUVendor: TGPUVendor;
 
 procedure Tint(r, g, b, a: Single);
@@ -1304,7 +1304,7 @@
            end;
 end;
 
-procedure copyToXY(src, dest: PSDL_Surface; destX, destY: Integer);
+procedure copyToXY(src, dest: PSDL_Surface; destX, destY: LongInt);
 var srcX, srcY, i, j, maxDest: LongInt;
     srcPixels, destPixels: PLongWordArray;
 begin