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

Set ITERATIONS to the lowest possible value ($10000) to avoid reaching individual test time limit

Browse Source
This commit is contained in:
Pierre Muller 2025-04-23 16:31:00 +00:00
parent ec0ac70df3
commit 24ff6f76ab
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/bench/bcase.pp
View File

@ -32,7 +32,11 @@ function IIf(Condition: Boolean; TrueRes, FalseRes: Integer): Integer; inline;
end;
const
{$ifdef IN_TESTS}
ITERATIONS = $10000;
{$else not IN_TESTS}
ITERATIONS = 33554432;
{$endif not IN_TESTS}
AES_S_Box: array[Byte] of Byte = (
$63, $7c, $77, $7b, $f2, $6b, $6f, $c5, $30, $01, $67, $2b, $fe, $d7, $ab, $76,

1
tests/test/tcase49.pp
View File

@ -1,3 +1,4 @@
{ %OPT=-O2 }
{ this benchmark can be used also as a test case }
{$define IN_TESTS}
{$I ../bench/bcase.pp}