@@ -6,6 +6,9 @@
{ Creates the following directory, and sets it as the }
{ current directory. }
{ ../testdir }
+
+{ %skiptarget=wince }
Program tdir;
{$I-}
@@ -1,4 +1,5 @@
{ %fail }
+{ %cpu=i386 }
{$ifdef fpc}
{$mode delphi}
@@ -1,11 +1,11 @@
{ %cpu=arm }
+{ %norun }
{ Source provided for Free Pascal Bug Report 4722 }
{ Submitted by "Francesco Lombardi" on 2006-01-21 }
{ e-mail: [email protected] }
procedure SystemCall(n: integer); assembler;
asm
MOV R0, R0, LSL #0x10
- SWI R0
end;
begin