t_id
1411
t_adddate
2004/12/06
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526326551 | 948333 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3433 } { Submitted by "Mattias Gaertner" on 2004-12-06 } { e-mail: mattias@freepascal.org } program CompareFunctionTypes; {$mode objfpc}{$H+} uses Classes, SysUtils; type TMyFunction = function(Item: Pointer): integer of object; procedure DoSomething(const Func1, Func2: TMyFunction); begin if Func1=Func2 then exit; end; begin DoSomething(nil,nil); end.