Test suite results for test file webtbs/tw1283.pp

Test run data :

Test file "webtbs/tw1283.pp" information:

t_id 790
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934965.

Source:

{ %version=1.1 }
{$mode objfpc}
 type
     t = class(tobject)
      constructor Init;
     end;

 constructor t.Init;
 begin
  fail; { constructor will return NULL in ESI now, which is OK }
 end;

 type
     c = class(tobject)
      procedure p;
     end;


 procedure c.p;
  var i:t;
 begin
  i:=t.Init;
  if i<>nil then
    begin
       writeln('Problem with saving a non assigned self');
       halt(1);
    end;
  { returned is NULL in ESI, and AfterConstructor is attempted to call by
    referencing an invalid VMT via ESI}
 end;

 var i:c;

begin
 i:=c.create; i.p;
end.

Link to SVN view of webtbs/tw1283.pp source.