X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_holmes_cmd.inc;h=578f86583d3d3df5ea68f8afebc94f630fa1a754;hb=5c72767aba48c236cd81972a6d79ff67b64ecd92;hp=63b0ae55a83587d0e1118b97633e2053ed3185d2;hpb=8c90efc38cb9e8c9f728280138dd86820a502888;p=d2df-sdl.git

diff --git a/src/game/g_holmes_cmd.inc b/src/game/g_holmes_cmd.inc
index 63b0ae5..578f865 100644
--- a/src/game/g_holmes_cmd.inc
+++ b/src/game/g_holmes_cmd.inc
@@ -110,12 +110,9 @@ end;
 
 
 // ////////////////////////////////////////////////////////////////////////// //
-function ansistrEquCB (constref a, b: AnsiString): Boolean; begin result := (a = b); end;
-function ansistrHashCB (constref a: AnsiString): LongWord; begin if (Length(a) > 0) then result := fnvHash(PChar(a)^, Length(a)) else result := 0; end;
-
 function hashNewCommand (): TCmdHash;
 begin
-  result := TCmdHash.Create(ansistrHashCB, ansistrEquCB);
+  result := TCmdHash.Create(hashStrHash, hashStrEqu, hashStrFree);
 end;