paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix property mismatch

Browse Source 
git-svn-id: trunk@2003 -
This commit is contained in:
peter 2005-12-20 10:19:53 +00:00
parent 8f6babfef7
commit ff1f800de5
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/inc/contnrs.pp
View File

@ -212,7 +212,7 @@ Type
function GetVoidSlots: Longword;
function GetLoadFactor: double;
function GetAVGChainLen: double;
function GetMaxChainLength: Longword;
function GetMaxChainLength: Int64;
function Chain(const index: Longword):TFPObjectList;
protected
function ChainLength(const ChainIndex: Longword): Longword; virtual;
@ -1131,7 +1131,7 @@ begin
result := Count / (FHashTableSize - VoidSlots);
end;
function TFPHashTable.GetMaxChainLength: Longword;
function TFPHashTable.GetMaxChainLength: Int64;
var
i: Longword;
begin