mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 21:42:35 +02:00
15 lines
152 B
ObjectPascal
15 lines
152 B
ObjectPascal
{ %cpu=arm }
|
|
{ %norun }
|
|
|
|
procedure test; assembler;
|
|
asm
|
|
cps #0
|
|
cpsie aif, #0
|
|
cpsid aif, #0
|
|
cpsie aif
|
|
cpsid aif
|
|
end;
|
|
|
|
begin
|
|
end.
|