t_id
790
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022525036 | 1027345 | True | False | Successfully run |
Record count: 1
{ %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.