X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fhashtable.pas;h=ea71555c68ff7a6d4c4fa2db980990e96f41d8e0;hb=8213065ce7c035c3c2bb8d8b90ab423d42c0a5ac;hp=9f72e3ab2f5fb547da371473cc30e87e8b47887b;hpb=1a10061a1cd706f5f06b923740e45a462d2bd885;p=d2df-sdl.git

diff --git a/src/shared/hashtable.pas b/src/shared/hashtable.pas
index 9f72e3a..ea71555 100644
--- a/src/shared/hashtable.pas
+++ b/src/shared/hashtable.pas
@@ -173,6 +173,11 @@ function joaatHash (constref buf; len: LongWord): LongWord;
 function nextPOT (x: LongWord): LongWord; inline;
 
 
+// for integer keys
+function hiiequ (constref a, b: Integer): Boolean;
+function hiihash (constref k: Integer): LongWord;
+
+
 implementation
 
 uses
@@ -204,7 +209,7 @@ function hsiequ (constref a, b: AnsiString): Boolean; begin result := (a = b); e
 {$RANGECHECKS OFF}
 function hiihash (constref k: Integer): LongWord;
 begin
-  result := k;
+  result := LongWord(k);
   result -= (result shl 6);
   result := result xor (result shr 17);
   result -= (result shl 9);