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

* use self.test instead of tc.test

Browse Source
This commit is contained in:
peter 2003-01-05 22:21:35 +00:00
parent 0653404f70
commit 702947b966
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/tbs/tb0356.pp
View File

@ -18,8 +18,8 @@ type
begin
{ if you use @test, the compiler tries to get the address of the }
{ function result instead of the address of the method (JM) }
result := foreach(c.left,@tc.test);
result := foreach(c.right,@tc.test) or result;
result := foreach(c.left,@self.test);
result := foreach(c.right,@self.test) or result;
end;