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

* use linklib only on darwin

Browse Source 
git-svn-id: trunk@11029 -
This commit is contained in:
florian 2008-05-21 20:45:05 +00:00
parent 5a8bed193a
commit 5c6836e794
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tlib1.pp
View File

@ -8,7 +8,9 @@
uses uses
{$ifdef unix}dl,{$endif unix}sysutils; {$ifdef unix}dl,{$endif unix}sysutils;
{$ifdef darwin}
{$linklib tlib1a} {$linklib tlib1a}
{$endif darwin}
procedure p(var a : pointer);external 'tlib1a' name 'p'; procedure p(var a : pointer);external 'tlib1a' name 'p';
@ -34,7 +36,7 @@ w:
s2:=ExtractFilename(s2); s2:=ExtractFilename(s2);
writeln({ 'Func: ',s1,'} 'Source: ',s2,' Line: ',l); writeln({ 'Func: ',s1,'} 'Source: ',s2,' Line: ',l);
{ GetLineInfo of dwarf doesn't return the function name } { GetLineInfo of dwarf doesn't return the function name }
if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>21) then if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>23) then
halt(1); halt(1);
writeln('ok'); writeln('ok');