paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 17:07:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Restrict test to Windows OS

Browse Source 
git-svn-id: trunk@17778 -
This commit is contained in:
pierre 2011-06-20 21:07:23 +00:00
parent 18f5b6c2a6
commit ede0a5a929
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/library/tlib1b.pp
View File

@ -1,18 +1,8 @@
{ %skiptarget=go32v2 } { %target=win32,win64,wince }
{ %needlibrary } { %needlibrary }
{$goto on}
{ Checks that the two functions with the same exported name 'p' { Checks that the two functions with the same exported name 'p'
are each loaded correctly. } are each loaded correctly. }
uses
{$ifdef unix}dl,{$endif unix}sysutils;
{$ifdef darwin}
{$linklib tlib1a}
{$linklib tlib1a2}
{$endif darwin}
procedure p(var a : dword);external 'tlib1a' name 'p'; procedure p(var a : dword);external 'tlib1a' name 'p';
procedure p2(var a : dword);external 'tlib1a2' name 'p'; procedure p2(var a : dword);external 'tlib1a2' name 'p';