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

* New test for detecting faulty "LeaLea2LeaLea" optimisations

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2025-02-27 01:33:58 +00:00 committed by FPK
parent 83c9b17ec5
commit d9e97e3f0f
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw41166.pp Normal file
View File

@ -0,0 +1,22 @@
{ %OPT=-O2 }
program tw41166;
{$mode objfpc} {$q-,r-}
function SatSub(a, b: SizeUint): SizeUint; inline;
begin
result := a - b;
if a < b then result := 0;
end;
var
r: SizeUint;
begin
r := SatSub((random(0) + 3) * 2, 1);
if r <> 5 then
begin
writeln('r = ', r);
halt(1);
end;
writeln('ok');
end.