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

* try to improve result stability by longer runtime

Browse Source
This commit is contained in:
florian 2022-11-25 23:11:11 +01:00
parent 247423400f
commit 74bef61b99
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-generics/tests/tqsort_killer.pp
View File

@ -120,7 +120,7 @@ type
specialize TArrayHelper<Ty>.Sort(arr); specialize TArrayHelper<Ty>.Sort(arr);
timePassed := (Now - startTime) * SecsPerDay; timePassed := (Now - startTime) * SecsPerDay;
reps += 1; reps += 1;
until not (timePassed < 0.2); until not (timePassed < 3);
time := timePassed / reps; time := timePassed / reps;
write(time * 1e3:0:1, ' ms/sort'); write(time * 1e3:0:1, ' ms/sort');
@ -168,4 +168,3 @@ begin
halt(2); halt(2);
end; end;
end. end.