mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 00:59:08 +02:00
* write execution time more precisely
git-svn-id: trunk@48843 -
This commit is contained in:
parent
ce3edc8c95
commit
fb6867963f
@ -6,7 +6,7 @@ uses
|
|||||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
cthreads,
|
cthreads,
|
||||||
{$ENDIF}{$ENDIF}
|
{$ENDIF}{$ENDIF}
|
||||||
SysUtils,Classes,sha1,dateutils;
|
SysUtils,Classes,sha1;
|
||||||
|
|
||||||
var
|
var
|
||||||
StartTime: TDateTime;
|
StartTime: TDateTime;
|
||||||
@ -24,6 +24,6 @@ begin
|
|||||||
ss := LowerCase(SHA1Print(SHA1string(s)));
|
ss := LowerCase(SHA1Print(SHA1string(s)));
|
||||||
EndTime:=now;
|
EndTime:=now;
|
||||||
writeln('Performance test finished. Elapsed time:');
|
writeln('Performance test finished. Elapsed time:');
|
||||||
writeln(TimeToStr(EndTime-StartTime));
|
writeln((EndTime-StartTime)*3600*24:0:3,' s');
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user