* fix property mismatch

git-svn-id: trunk@2003 -
This commit is contained in:
peter 2005-12-20 10:19:53 +00:00
parent 8f6babfef7
commit ff1f800de5

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