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

* New test to catch issue identified in #40003

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-11-27 16:33:50 +00:00 committed by FPK
parent cc27576339
commit 5704626762
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tests/webtbs/tw40003.pp Normal file
View File

@ -0,0 +1,20 @@
{ %OPT=-O2 }
program tw40003;
{ Code triggers faulty optimisation in OptPass2Movx }
{$mode objfpc} {$typedaddress on}
var
value, thirdByte: uint32;
begin
(@value)^ := $11223344 + random(0);
thirdByte := byte(value shr 16);
writeln('byte($11223344 shr 16) = $', HexStr(thirdByte, 1 + BsrDWord(thirdByte) div 4), ' (must be $22)');
if thirdbyte <> 34 then
begin
WriteLn('FAIL');
Halt(1);
end;
WriteLn('ok');
end.