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

* fixed wrong naming

Browse Source 
git-svn-id: trunk@11034 -
This commit is contained in:
florian 2008-05-22 11:08:14 +00:00
parent 94ead30261
commit 33b69b0bd2
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -7516,8 +7516,8 @@ tests/test/tinterface5.pp svneol=native#text/plain
tests/test/tinterrupt.pp svneol=native#text/plain tests/test/tinterrupt.pp svneol=native#text/plain
tests/test/tintfdef.pp svneol=native#text/plain tests/test/tintfdef.pp svneol=native#text/plain
tests/test/tintuint.pp svneol=native#text/plain tests/test/tintuint.pp svneol=native#text/plain
tests/test/tlib1.pp svneol=native#text/plain
tests/test/tlib1a.pp svneol=native#text/plain tests/test/tlib1a.pp svneol=native#text/plain
tests/test/tlib1b.pp svneol=native#text/plain
tests/test/tlibrary1.pp svneol=native#text/plain tests/test/tlibrary1.pp svneol=native#text/plain
tests/test/tlibrary2.pp svneol=native#text/plain tests/test/tlibrary2.pp svneol=native#text/plain
tests/test/tlibrary3.pp svneol=native#text/plain tests/test/tlibrary3.pp svneol=native#text/plain

2
tests/test/tlib1.pp → tests/test/tlib1b.pp
View File

@ -36,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<>23) then if { (s1<>'P') or } (s2<>'tlib1b.pp') or (l<>23) then
halt(1); halt(1);
writeln('ok'); writeln('ok');