paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:49:17 +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 GetVoidSlots: Longword;
function GetLoadFactor: double; function GetLoadFactor: double;
function GetAVGChainLen: double; function GetAVGChainLen: double;
function GetMaxChainLength: Longword; function GetMaxChainLength: Int64;
function Chain(const index: Longword):TFPObjectList; function Chain(const index: Longword):TFPObjectList;
protected protected
function ChainLength(const ChainIndex: Longword): Longword; virtual; function ChainLength(const ChainIndex: Longword): Longword; virtual;
@ -1131,7 +1131,7 @@ begin
result := Count / (FHashTableSize - VoidSlots); result := Count / (FHashTableSize - VoidSlots);
end; end;
function TFPHashTable.GetMaxChainLength: Longword; function TFPHashTable.GetMaxChainLength: Int64;
var var
i: Longword; i: Longword;
begin begin