paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 19:30:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r30707 into '.':

Browse Source 
U    packages/fcl-base/src/contnrs.pp
--- Recording mergeinfo for merge of r30707 into '.':
 U   .

# revisions: 30707

git-svn-id: branches/fixes_3_0@31069 -
This commit is contained in:
marco 2015-06-16 19:18:20 +00:00
parent e263ebeb1d
commit 15627a8c4b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/contnrs.pp
View File

@ -360,7 +360,6 @@ type
TFPCustomHashTable = class(TObject)
private
FHashTable: TFPObjectList;
FHashTableSize: Longword;
FHashFunction: THashFunction;
FCount: Longword;
Function GetDensity: Longword;
@ -372,6 +371,7 @@ type
Function GetAVGChainLen: double;
Function GetMaxChainLength: Longword;
protected
FHashTableSize: Longword;
Function Chain(const index: Longword):TFPObjectList;
Function CreateNewNode(const aKey : string) : THTCustomNode; virtual; abstract;
Procedure AddNode(ANode : THTCustomNode); virtual; abstract;