Explorar o código

* fix type declarations > 2gb

peter %!s(int64=22) %!d(string=hai) anos
pai
achega
60d69bd73f
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      fcl/image/fpimage.pp

+ 2 - 2
fcl/image/fpimage.pp

@@ -39,7 +39,7 @@ type
   TFPColorArray = array [0..0] of TFPColor;
 {$R-}
 {$else not CPU68K}
-  TFPColorArray = array [0..maxint] of TFPColor;
+  TFPColorArray = array [0..(maxint-1) div sizeof(TFPColor)] of TFPColor;
 {$endif CPU68K}
   PFPColorArray = ^TFPColorArray;
 
@@ -137,7 +137,7 @@ type
   TFPIntegerArray = array [0..0] of integer;
 {$R-}
 {$else not CPU68K}
-  TFPIntegerArray = array [0..maxint] of integer;
+  TFPIntegerArray = array [0..(maxint-1) div sizeof(integer)] of integer;
 {$endif CPU68K}
   PFPIntegerArray = ^TFPIntegerArray;