paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 13:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2003-11-01 16:09:29 +00:00
parent aadc6dbf2b
commit 94adc500b2
1 changed files with 53 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
tests/webtbs/tw2536.pp Normal file
View File

@ -0,0 +1,53 @@
{ 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.