diff --git a/src/tools/mapcvt.dpr b/src/tools/mapcvt.dpr
index 476179c3713545b0fa8418190d56e750d29cfe4b..799de30e10e7e20f9c6361f85be69bd22c38bb05 100644 (file)
--- a/src/tools/mapcvt.dpr
+++ b/src/tools/mapcvt.dpr
sfs in '../sfs/sfs.pas',
sfsPlainFS in '../sfs/sfsPlainFS.pas',
sfsZipFS in '../sfs/sfsZipFS.pas',
+ mempool in '../shared/mempool.pas',
xstreams in '../shared/xstreams.pas',
xparser in '../shared/xparser.pas',
xdynrec in '../shared/xdynrec.pas',
inname: AnsiString = '';
outname: AnsiString = '';
totext: Integer = -1; // <0: guess; force outname extension
- sign: packed array[0..3] of AnsiChar;
+ //sign: packed array[0..3] of AnsiChar;
wad: TWADFile = nil;
waddata: Pointer;
waddlen: Integer;
end;
try
- stt := curTimeMicro();
+ stt := getTimeMicro();
map := dfmapdef.parseMap(st, @wasbin);
- stt := curTimeMicro()-stt;
+ stt := getTimeMicro()-stt;
if wasbin then write('binary') else write('text');
writeln(' map parsed in ', stt div 1000, '.', stt mod 1000, ' milliseconds');
except
begin
// write binary map
lostdata := false;
- stt := curTimeMicro();
+ stt := getTimeMicro();
map.writeBinTo(lostdata, st);
- stt := curTimeMicro()-stt;
+ stt := getTimeMicro()-stt;
if lostdata then writeln('***WARNING! some data was lost due to binary format limitations!');
write('binary');
end
begin
// write text map
wr := TFileTextWriter.Create(st);
- stt := curTimeMicro();
+ stt := getTimeMicro();
map.writeTo(wr);
- stt := curTimeMicro()-stt;
+ stt := getTimeMicro()-stt;
wr.Free();
write('text');
end;