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

* ARM: New test to evaluate ADR encoding error

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-10-17 17:14:20 +01:00 committed by FPK
parent c4061e49e6
commit 6b569d0ada
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
tests/webtbs/tw40472.pp Normal file
View File

@ -0,0 +1,34 @@
{ %CPU=ARM }
program tw40472;
function AddrCheck(): LongInt; assembler; nostackframe;
asm
ADR R0, .L528Ahead
LDR R0, [R0]
BX LR
.LPadding:
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
.long 0, 0, 0
.L528Ahead:
.long 0x5555AAAA
end;
var
Output: LongInt;
begin
Output := AddrCheck();
if Output <> $5555AAAA then
begin
WriteLn('ERROR: Expected $5555AAAA but got $', HexStr(Output, 8));
Halt(1);
end;
WriteLn('ok');
end.