blob: 13728b5bbf2ebccc6dfe78786431338ccf5bfdc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{ %cpu=arm }
{ %norun }
{ Source provided for Free Pascal Bug Report 4722 }
{ Submitted by "Francesco Lombardi" on 2006-01-21 }
{ e-mail: francky74@gmail.com }
procedure SystemCall(n: integer); assembler;
asm
MOV R0, R0, LSL #0x10
end;
begin
end.
|
