X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Ftools%2Fmapgen.dpr;h=bd16bf5f89492779e9f641863dbe250d6185fd4b;hb=1a0b7042f730b108765dce3eb366ea0b5c7892a0;hp=1a4850593b81dcf21d215761a613be7e971bc713;hpb=95e5dc9815ded04c52a0e5fadb77580f1d6ed7c0;p=d2df-sdl.git

diff --git a/src/tools/mapgen.dpr b/src/tools/mapgen.dpr
index 1a48505..bd16bf5 100644
--- a/src/tools/mapgen.dpr
+++ b/src/tools/mapgen.dpr
@@ -5,6 +5,7 @@
 
 uses
   SysUtils, Classes,
+  mempool in '../shared/mempool.pas',
   xstreams in '../shared/xstreams.pas',
   xparser in '../shared/xparser.pas',
   xdynrec in '../shared/xdynrec.pas',
@@ -265,14 +266,21 @@ begin
     writeln('FATAL: mapdef not found!');
   end;
 
+  writeln('parsing "mapdef.txt"...');
   pr := TFileTextParser.Create(st, false); // don't own
   try
     dfmapdef := TDynMapDef.Create(pr);
-  except on e: Exception do
-    begin
-      writeln('ERROR at (', pr.tokLine, ',', pr.tokCol, '): ', e.message);
-      Halt(1);
-    end;
+  except
+    on e: TDynParseException do
+      begin
+        writeln('ERROR at (', e.tokLine, ',', e.tokCol, '): ', e.message);
+        Halt(1);
+      end;
+    on e: Exception do
+      begin
+        writeln('ERROR: ', e.message);
+        Halt(1);
+      end;
   end;
   pr.Free();