paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 14:49:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Dean Zobec to change Int64 to longword in tfphashtable.

Browse Source 
git-svn-id: trunk@4753 -
This commit is contained in:
michael 2006-09-29 22:18:05 +00:00
parent 262f60e67d
commit 728b4bcf11
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fcl/inc/contnrs.pp
View File

@ -208,15 +208,15 @@ Type
FHashTable: TFPObjectList;
FHashTableSize: Longword;
FHashFunction: THashFunction;
FCount: Int64;
FCount: Longword;
function GetDensity: Longword;
function GetNumberOfCollisions: Int64;
function GetNumberOfCollisions: Longword;
procedure SetHashTableSize(const Value: Longword);
procedure InitializeHashTable;
function GetVoidSlots: Longword;
function GetLoadFactor: double;
function GetAVGChainLen: double;
function GetMaxChainLength: Int64;
function GetMaxChainLength: Longword;
function Chain(const index: Longword):TFPObjectList;
protected
function ChainLength(const ChainIndex: Longword): Longword; virtual;
@ -236,15 +236,15 @@ Type
function Find(const aKey: string): THTNode;
function IsEmpty: boolean;
property HashFunction: THashFunction read FHashFunction write SetHashFunction;
property Count: Int64 read FCount;
property Count: Longword read FCount;
property HashTableSize: Longword read FHashTableSize write SetHashTableSize;
property Items[const index: string]: Pointer read GetData write SetData; default;
property HashTable: TFPObjectList read FHashTable;
property VoidSlots: Longword read GetVoidSlots;
property LoadFactor: double read GetLoadFactor;
property AVGChainLen: double read GetAVGChainLen;
property MaxChainLength: Int64 read GetMaxChainLength;
property NumberOfCollisions: Int64 read GetNumberOfCollisions;
property MaxChainLength: Longword read GetMaxChainLength;
property NumberOfCollisions: Longword read GetNumberOfCollisions;
property Density: Longword read GetDensity;
end;
@ -894,7 +894,7 @@ begin
Result := FHashTableSize - VoidSlots
end;
function TFPHashTable.GetNumberOfCollisions: Int64;
function TFPHashTable.GetNumberOfCollisions: Longword;
begin
Result := FCount -(FHashTableSize - VoidSlots)
end;
@ -1157,7 +1157,7 @@ begin
result := Count / (FHashTableSize - VoidSlots);
end;
function TFPHashTable.GetMaxChainLength: Int64;
function TFPHashTable.GetMaxChainLength: Longword;
var
i: Longword;
begin