summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ae4069a)
raw | patch | inline | side by side (parent: ae4069a)
author | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Wed, 30 Aug 2017 20:51:50 +0000 (23:51 +0300) | ||
committer | Ketmar Dark <ketmar@ketmar.no-ip.org> | |
Wed, 30 Aug 2017 20:52:09 +0000 (23:52 +0300) |
src/tools/mapcvt.dpr | patch | blob | history |
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.