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

+ Fixec index check in exchange method.

Browse Source
This commit is contained in:
michael 1998-05-06 07:27:22 +00:00
parent a2874de41d
commit a5c52b5362
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/lists.inc
View File

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