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

* corrected expected line numbers after r16573

Browse Source 
git-svn-id: trunk@16576 -
This commit is contained in:
Jonas Maebe 2010-12-17 09:55:55 +00:00
parent 54b5172286
commit 2ee7a0f95d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tlib1b.pp
View File

@ -29,7 +29,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<>'tlib1a.pp') or (l<>9) then if { (s1<>'P') or } (s2<>'tlib1a.pp') or (l<>10) then
halt(1); halt(1);
{ main program } { main program }
@ -37,7 +37,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<>'tlib1b.pp') or (l<>23) then if { (s1<>'P') or } (s2<>'tlib1b.pp') or (l<>24) then
halt(1); halt(1);
writeln('ok'); writeln('ok');