Test suite results for test file tbs/tb0356.pp

Test run data :

Test file "tbs/tb0356.pp" information:

t_id 574
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 939786.

Source:

{$mode objfpc}
type
  tc = class
    function test(var c: tc): boolean;
    left,right: tc;
  end;

  testfunc = function(var c: tc):boolean of object;

  function foreach(var c: tc; p: testfunc): boolean;
    begin
      if not assigned(c) then
        exit;
    end;


  function tc.test(var c: tc): boolean;
  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,@self.test);
    result := foreach(c.right,@self.test) or result;
  end;


begin
end.

Link to SVN view of tbs/tb0356.pp source.