paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bug #617 fixed

Browse Source
This commit is contained in:
florian 1999-09-28 19:48:45 +00:00
parent 9f62eb480b
commit f050faa02b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/compiler.pas
View File

@ -263,6 +263,8 @@ begin
if status.errorcount=0 then
begin
starttime:=getrealtime-starttime;
if starttime<0 then
starttime:=starttime+3600.0*24.0;
Message2(general_i_abslines_compiled,tostr(status.compiledlines),tostr(trunc(starttime))+
'.'+tostr(trunc(frac(starttime)*10)));
end;
@ -296,7 +298,10 @@ end;
end.
{
$Log$
Revision 1.34 1999-09-16 23:05:52 florian
Revision 1.35 1999-09-28 19:48:45 florian
* bug 617 fixed
Revision 1.34 1999/09/16 23:05:52 florian
* m68k compiler is again compilable (only gas writer, no assembler reader)
Revision 1.33 1999/09/07 15:10:04 pierre