From a5c52b5362d78b6b589e5116aae1f6fc631af08c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 6 May 1998 07:27:22 +0000
Subject: [PATCH] + Fixec index check in exchange method.

---
 fcl/inc/lists.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/fcl/inc/lists.inc b/fcl/inc/lists.inc
index a215cd4a95..03a1beba3d 100644
--- a/fcl/inc/lists.inc
+++ b/fcl/inc/lists.inc
@@ -159,7 +159,7 @@ procedure TList.Exchange(Index1, Index2: Integer);
 var Temp : Pointer;
 
 begin
-  If ((Index1>FCount) or (Index2>FCount)) or
+  If ((Index1>=FCount) or (Index2>=FCount)) or
      ((Index1<0) or (Index2<0)) then
     RunError(255);
   Temp:=FList^[Index1];
@@ -386,7 +386,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  1998-05-05 15:54:31  michael
+  Revision 1.4  1998-05-06 07:27:22  michael
+  + Fixec index check in exchange method.
+
+  Revision 1.3  1998/05/05 15:54:31  michael
   TList completely implemented
 
   Revision 1.2  1998/05/04 15:54:07  michael