t_id
1181
t_adddate
2003/11/02
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
526175527 | 948311 | False | True | Skipping test run because it is a unit |
Record count: 1
{ Source provided for Free Pascal Bug Report 2536 } { Submitted by "Michael Van Canneyt" on 2003-06-14 } { e-mail: Michael.VanCanneyt@wisa.be } unit tw2536; interface Type TWSAData = Pointer; var // Delphi accepts this. WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil; // FPC accepts this. WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer = nil; stdcall; implementation end.unit testu2; interface Type TWSAData = Pointer; const // FPC and Delphi accepts this. WSAStartup: function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall = nil; // FPC does not accept this. WSAStartup2: function(wVersionRequired: Word; var WSData: TWSAData): Integer = nil; stdcall; implementation end. unit testu3; interface Type TWSAData = Pointer; TStartupFunction = function(wVersionRequired: Word; var WSData: TWSAData): Integer stdcall; TStartupFunction2 = function(wVersionRequired: Word; var WSData: TWSAData): Integer; stdcall; var WSAStartup: TStartupFunction = nil; WSAStartup2: TStartupFunction2 = Nil; implementation end.