mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
19 lines
217 B
ObjectPascal
19 lines
217 B
ObjectPascal
{ %cpu=arm }
|
|
program tb0597;
|
|
|
|
var x: longword;
|
|
|
|
procedure test; assembler; nostackframe;
|
|
asm
|
|
ldr r0, =x
|
|
ldr r1, =0x12345678
|
|
str r1, [r0]
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
|
|
if x <> $12345678 then
|
|
halt(1);
|
|
end.
|