paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* skip tdir test for wince.

Browse Source 
* 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 -
This commit is contained in:
yury 2006-07-05 15:55:52 +00:00
parent 3961254106
commit f9f7531db6
3 changed files with 5 additions and 1 deletions
tests
test/units/system
tdir.pp
webtbf
tw1633.pp
webtbs
tw4722.pp

3
tests/test/units/system/tdir.pp
View File

@ -6,6 +6,9 @@
{ Creates the following directory, and sets it as the }
{ current directory. }
{ ../testdir }
{ %skiptarget=wince }
Program tdir;
{$I-}

1
tests/webtbf/tw1633.pp
View File

@ -1,4 +1,5 @@
{ %fail }
{ %cpu=i386 }
{$ifdef fpc}
{$mode delphi}

2
tests/webtbs/tw4722.pp
View File

@ -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: francky74@gmail.com }
procedure SystemCall(n: integer); assembler;
asm
MOV R0, R0, LSL #0x10
SWI R0
end;
begin