paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 04:32:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed displaying of compilation time in some cases. For example, if the compilation time is 0.99 seconds, it has been displayed as 0.10. Now it is correctly displayed as 1.0.

Browse Source 
git-svn-id: trunk@23689 -
This commit is contained in:
yury 2013-03-04 16:02:51 +00:00
parent 168c9d152f
commit 268b2d56d7
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/compiler.pas
View File

@ -271,6 +271,8 @@ begin
totaltime:=getrealtime-starttime;
if totaltime<0 then
totaltime:=totaltime+3600.0*24.0;
if round(frac(totaltime)*10) >= 10 then
totaltime:=trunc(totaltime) + 1;
timestr:=tostr(trunc(totaltime))+'.'+tostr(round(frac(totaltime)*10));
if status.codesize<>aword(-1) then
linkstr:=', '+tostr(status.codesize)+' ' +strpas(MessagePChar(general_text_bytes_code))+', '+tostr(status.datasize)+' '+strpas(MessagePChar(general_text_bytes_data))