t_id
943
t_adddate
2003/10/03
t_result
210
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
456213830 | 936984 | True | False | Successfully run |
Record count: 1
{ %RESULT=210 } { Source provided for Free Pascal Bug Report 2318 } { Submitted by "Sergey Kosarevsky" on 2003-01-09 } { e-mail: netsurfer@au.ru } {$static on} {$R+} Type tObject=Object Constructor Init; Function GetVMT:Pointer;Static; Destructor Done;Virtual; End; Constructor tObject.Init; Begin End; Function tObject.GetVMT:Pointer; Begin GetVMT:=self; End; Destructor tObject.Done; Begin End; Var O:tObject; Begin //O.Init; { No init done, the object check should give an RTE 210 } if (O.GetVMT= nil) or (O.getVMT<>tObject.GetVMT) then begin Writeln('Problem with static methods'); halt(1); end; End.