paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix type declarations > 2gb

Browse Source
This commit is contained in:
peter 2003-07-04 14:40:24 +00:00
parent 9c875f9926
commit 60d69bd73f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/image/fpimage.pp
View File

@ -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;