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

* TFPCustomHashTable.FHashTableSize made protected. Without this change it is

Browse Source 
not possible to add new descendents for other types.

git-svn-id: trunk@30707 -
This commit is contained in:
joost 2015-04-25 09:25:39 +00:00
parent 2dae6a2dd7
commit d16da8a32b
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;