t_id
946
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950717843 | 1015786 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2332 } { Submitted by "Sergey Kosarevsky" on 2003-01-21 } { e-mail: netsurfer@au.ru } {$static on } Type tObject=Object Constructor Init; Function GetVMT:Pointer;Static; Destructor Done;Virtual; End; Function tObject.GetVMT:Pointer; Begin Exit(Self); End; Constructor tObject.Init; Begin End; Destructor tObject.Done; Begin End; Var O:tObject; Begin O.Init; WriteLn(Longint(TypeOf(tObject))); WriteLn(Longint(O.GetVMT)); WriteLn(Longint(tObject.GetVMT)); if (O.GetVMT<>TypeOf(tObject)) or (TypeOf(tObject)<>tObject.GetVMT) then begin writeln('Error with typeof'); halt(1); end; End.