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

+ SMALL_TEST define for slow CPUs/soft float

Browse Source
This commit is contained in:
florian 2024-12-24 16:27:41 +01:00
parent faae36afa1
commit cdce37b8be
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/units/math/trandg.pp
View File

@ -1,3 +1,7 @@
{$ifdef FPUSOFT}
{$define SMALL_TEST}
{$endif FPUSOFT}
{$mode objfpc} {$longstrings on} {$coperators on} {$zerobasedstrings on}
uses
SysUtils, Math;
@ -13,7 +17,11 @@ const
HistogramMax = 10;
NHistogramBuckets = 40;
NRows = 12;
{$ifdef SMALL_TEST}
NSamples = 100 * 1000;
{$else SMALL_TEST}
NSamples = 100 * 1000 * 1000;
{$endif SMALL_TEST}
var
hist: array of uint32;
iSample, nOutOfRange, maxInBucket: uint32;
@ -29,7 +37,11 @@ begin
time := Now;
for iSample := 0 to NSamples - 1 do
begin
{$ifdef SMALL_TEST}
if iSample and (1 shl 11 - 1) = 0 then
{$else SMALL_TEST}
if iSample and (1 shl 21 - 1) = 0 then
{$endif SMALL_TEST}
begin
WriteStr(newMsg, name, ': ', iSample / NSamples * 100:0:1, '%');
write(stderr, #13, StringOfChar(' ', length(msg)), #13, newMsg);