From cf0fb016c6f168f7d158f977c3b01ddc551563d1 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 2 Nov 2004 07:38:13 +0000
Subject: [PATCH]   * fixed data element too large

---
 fcl/image/fpimage.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fcl/image/fpimage.pp b/fcl/image/fpimage.pp
index 7b0c5d0bd8..e07f1ba521 100644
--- a/fcl/image/fpimage.pp
+++ b/fcl/image/fpimage.pp
@@ -54,7 +54,7 @@ type
   TFPColorArray = array [0..0] of TFPColor;
 {$R-}
 {$else not CPU68K}
-  TFPColorArray = array [0..(maxint-1) div sizeof(TFPColor)] of TFPColor;
+  TFPColorArray = array [0..(maxint-1) div sizeof(TFPColor)-1] of TFPColor;
 {$endif CPU68K}
   PFPColorArray = ^TFPColorArray;
 
@@ -156,7 +156,7 @@ type
   TFPIntegerArray = array [0..0] of integer;
 {$R-}
 {$else not CPU68K}
-  TFPIntegerArray = array [0..(maxint-1) div sizeof(integer)] of integer;
+  TFPIntegerArray = array [0..(maxint-1) div sizeof(integer)-1] of integer;
 {$endif CPU68K}
   PFPIntegerArray = ^TFPIntegerArray;