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

fcl-stl fixes2

Browse Source 
git-svn-id: trunk@17338 -
This commit is contained in:
vladob 2011-04-18 12:05:27 +00:00
parent 80dcd5f937
commit 46d50c9ebc
1 changed files with 60 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-stl/src/ghashmap.pp
View File

@ -1,4 +1,4 @@
{
{
This file is part of the Free Pascal FCL library.
BSD parts (c) 2011 Vlado Boza
@ -9,20 +9,20 @@
but WITHOUT ANY WARRANTY;without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$mode objfpc}
**********************************************************************}
{$mode objfpc}
unit ghashmap;
unit ghashmap;
interface
uses gvector, gutil, garrayutils;
interface
uses gvector, gutil, garrayutils;
const baseFDataSize = 8;
const baseFDataSize = 8;
{Thash should have one class function hash(a:TKey, n:longint):longint which return uniformly distributed
value in range <0,n-1> base only on arguments, n will be always power of 2}
{Thash should have one class function hash(a:TKey, n:longint):longint which return uniformly distributed
value in range <0,n-1> base only on arguments, n will be always power of 2}
type
type
generic THashmapIterator<TKey, TValue, T, TTable>=class
public
var
@ -81,7 +81,7 @@ end;
destructor THashmap.Destroy;
var i:SizeUInt;
begin
for i:=0 to FData.size do
for i:=0 to FData.size-1 do
(FData[i]).Destroy;
FData.Destroy;
end;