X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Ftools%2Fmapgen.dpr;h=40ac72ce915865d1cc712111c3b0021f1367c09e;hb=f1c498dd1ce66077d3140b0958176be31a44e018;hp=934713ab46451b37bd197a80c67cb23d3a8b0e63;hpb=7d83a7a741fe5eb8d0f7becb565d8af155e84ac7;p=d2df-sdl.git

diff --git a/src/tools/mapgen.dpr b/src/tools/mapgen.dpr
index 934713a..40ac72c 100644
--- a/src/tools/mapgen.dpr
+++ b/src/tools/mapgen.dpr
@@ -18,7 +18,7 @@ uses
 
 // ////////////////////////////////////////////////////////////////////////// //
 type
-  THashStrFld = specialize THashBase<AnsiString, TDynField>;
+  THashStrFld = specialize THashBase<AnsiString, TDynField, THashKeyStr>;
 
 
 // ////////////////////////////////////////////////////////////////////////// //
@@ -39,7 +39,7 @@ begin
   AssignFile(fo, fname);
   {$I+}Rewrite(fo);{$I-}
 
-  fldknown := THashStrFld.Create(hashStrHash, hashStrEqu);
+  fldknown := THashStrFld.Create();
 
   write(fo, '// trigger cache'#10);
   for tidx := 0 to dfmapdef.trigTypeCount-1 do
@@ -244,7 +244,7 @@ var
   fldknown: THashStrFld = nil; // key: palias; value: prev field
   knownfld: TDynField;
 begin
-  fldknown := THashStrFld.Create(hashStrHash, hashStrEqu);
+  fldknown := THashStrFld.Create();
   //writeln(getFilenamePath(ParamStr(0)), '|');
 
   e_InitWritelnDriver();