Test suite results for test file webtbs/tw2536.pp

Test run data :

Run ID:
Operating system: linux
Processor: mipsel
Version: 3.2.3
Fails/OK/Total: 228/7741/7969
Version: 3.2.3
Full version: 3.2.3-1373-gae0fe8a6a0
Comment: -ao-xgot -fPIC -XR/home/muller/sys-root/mipsel-linux -Xd -Xr/home/muller/sys-root/mipsel-linux
Machine: cfarm13
Category: 1
SVN revisions: fdf93c5b29:c17a0e20f5:ae0fe8a6a0:d1c29e6cb9
Submitter: muller
Date: 2024/04/22 13:12:00 <> 2024/04/09
Previous run: 936404
Next run: 937717

Hide skipped tests

Hide successful tests

Test file "webtbs/tw2536.pp" information:

t_id 1181
t_adddate 2003/11/02
t_result 0
t_knownrunerror 0

Detailed test run results:

tr_idruntr_oktr_skiptr_result
456672172937058FalseTrueSkipping test run because it is a unit

Record count: 1

No log of 937058.

Source: 

{ 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.

Link to SVN view of webtbs/tw2536.pp source.