t_id
941
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526200335 | 948316 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2317 } { Submitted by "Sergey Kosarevsky" on 2003-01-09 } { e-mail: netsurfer@au.ru } {$static on} Type tObject=Object Function GetVMT:Pointer;Static; End; Function tObject.GetVMT:Pointer; Begin Exit(Self); End; var l : longint; Begin l:=Longint(tObject.GetVMT()); WriteLn('self in static: ',l); if l<>0 then begin writeln('Error!'); halt(1); end; End.