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

* fix of 877

Browse Source
This commit is contained in:
pierre 2000-03-20 14:30:03 +00:00
parent 7cb441eadb
commit 48174a41fe
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/lists.inc
View File

@ -29,7 +29,7 @@ Const
function TList.Get(Index: Integer): Pointer;
begin
If (Index<0) or (Index>FCount) then
If (Index<0) or (Index>=FCount) then
Error(SListIndexError,Index);
Result:=FList^[Index];
end;
@ -395,7 +395,10 @@ end;
{
$Log$
Revision 1.10 2000-01-07 01:24:33 peter
Revision 1.11 2000-03-20 14:30:03 pierre
* fix of 877
Revision 1.10 2000/01/07 01:24:33 peter
* updated copyright to 2000
Revision 1.9 2000/01/06 01:20:33 peter
@ -410,4 +413,4 @@ end;
Revision 1.6 1999/04/08 10:18:52 peter
* makefile updates
}
}