diff --git a/src/tools/mapcvt.dpr b/src/tools/mapcvt.dpr
index 71784e27c7b9f02124177b401616b33a2e3f1fe8..cf4edc1692b956688ccad9778d2b0cb1da648c10 100644 (file)
--- a/src/tools/mapcvt.dpr
+++ b/src/tools/mapcvt.dpr
stt := curTimeMicro();
map := dfmapdef.parseBinMap(st);
stt := curTimeMicro()-stt;
- writeln('binary map parsed in ', stt div 1000, '.', stt mod 1000, ' microseconds');
+ writeln('binary map parsed in ', stt div 1000, '.', stt mod 1000, ' milliseconds');
st.Free();
end
else
stt := curTimeMicro();
map := dfmapdef.parseMap(pr);
stt := curTimeMicro()-stt;
- writeln('text map parsed in ', stt div 1000, '.', stt mod 1000, ' microseconds');
+ writeln('text map parsed in ', stt div 1000, '.', stt mod 1000, ' milliseconds');
except on e: Exception do
begin
writeln('ERROR at (', pr.line, ',', pr.col, '): ', e.message);
stt := curTimeMicro();
map.writeBinTo(st);
stt := curTimeMicro()-stt;
- writeln('binary map written in ', stt div 1000, '.', stt mod 1000, ' microseconds');
+ writeln('binary map written in ', stt div 1000, '.', stt mod 1000, ' milliseconds');
end
else
begin
stt := curTimeMicro();
map.writeTo(wr);
stt := curTimeMicro()-stt;
- writeln('text map written in ', stt div 1000, '.', stt mod 1000, ' microseconds');
+ writeln('text map written in ', stt div 1000, '.', stt mod 1000, ' milliseconds');
wr.Free();
end;
end.