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

* fixed test

Browse Source
This commit is contained in:
Jonas Maebe 2001-08-01 11:08:49 +00:00
parent 16bd288cae
commit 616c6ef979
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs/tb0356.pp
View File

@ -16,8 +16,10 @@ type
function tc.test(var c: tc): boolean;
begin
result := foreach(c.left,@test);
result := foreach(c.right,@test) or result;
{ 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;
end;