X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Ftests%2Ftest_hash.dpr;h=4e709373aa623f965b1c2b717c46e3337379a7f9;hb=6a0ee279ed5492f6c9965de45cb9a430e0b82e39;hp=f6a321ed8c27323ffb4e1443975298845904b970;hpb=2b04301f4303668096c37c21e06af70930f55b7f;p=d2df-sdl.git

diff --git a/src/shared/tests/test_hash.dpr b/src/shared/tests/test_hash.dpr
index f6a321e..4e70937 100644
--- a/src/shared/tests/test_hash.dpr
+++ b/src/shared/tests/test_hash.dpr
@@ -9,18 +9,6 @@ const
   MaxItems = 16384;
 
 
-{
-function hequ (constref a, b: Integer): Boolean; begin result := (a = b); end;
-
-function hhash (constref k: Integer): LongWord;
-begin
-  //result := fnvHash(k, sizeof(k));
-  //result := u32Hash(LongWord(k));
-  result := joaatHash(k, sizeof(k));
-end;
-}
-
-
 var
   its: array [0..MaxItems-1] of Integer;
   marks: array [0..MaxItems-1] of Boolean;
@@ -98,8 +86,7 @@ var
 begin
   for i := 0 to High(its) do its[i] := -1;
 
-  //hash := THashInt.Create(hhash, hequ);
-  hash := hashNewIntInt();
+  hash := THashIntInt.Create();
 
   Randomize();