mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 12:28:08 +02:00
f9f7531db6
* tw1633 test for i386 only. * removed SWI instruction in tw4722 test. It is not supported for arm-wince and do not needed for test. git-svn-id: trunk@4093 -
13 lines
254 B
ObjectPascal
13 lines
254 B
ObjectPascal
{ %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.
|