mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 04:58:06 +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.
|