mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 05:49:12 +02:00
* fix property mismatch
git-svn-id: trunk@2003 -
This commit is contained in:
parent
8f6babfef7
commit
ff1f800de5
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user