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

+ needs library

Browse Source 
git-svn-id: trunk@11011 -
This commit is contained in:
florian 2008-05-18 19:05:45 +00:00
parent d955c9b4f7
commit 38df5b4eae
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/test/tlib1.pp
View File

@ -1,4 +1,5 @@
{ %opt=-gl } { %opt=-gl }
{ %needlibrary }
{$goto on} {$goto on}
{ test lineinfo in libraries } { test lineinfo in libraries }
@ -30,7 +31,7 @@ w:
GetLineInfo(PtrUInt(@w),s1,s2,l); GetLineInfo(PtrUInt(@w),s1,s2,l);
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<>19) then if { (s1<>'P') or } (s2<>'tlib1.pp') or (l<>20) then
halt(1); halt(1);
writeln('ok'); writeln('ok');