paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 14:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test depended on non standard dll

Browse Source
This commit is contained in:
peter 2004-02-13 15:43:48 +00:00
parent 3a3fdde6d1
commit 55a1a78094
1 changed files with 0 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
tests/webtbs/tw2963.pp
View File

@ -1,32 +0,0 @@
{ %target=win32,linux,freebsd }
{ Source provided for Free Pascal Bug Report 2963 }
{ Submitted by "Claus Färber" on 2004-02-09 }
{ e-mail: claus@faerber.muc.de }
const
{$ifdef win32}
dllname='ws2_32.dll';
{$else}
dllname='c';
{$endif}
type
addrinfo = array[0..255] of byte;
paddrinfo = ^addrinfo;
ppaddrinfo = ^paddrinfo;
function getaddrinfo(nodename, servname: PChar; hints: paddrinfo; res: ppaddrinfo): integer; overload; stdcall; external dllname;
function getaddrinfo(nodename, servname: PChar; hints: paddrinfo; var res: paddrinfo): integer; overload; stdcall; external dllname;
function getaddrinfo(nodename, servname: PChar; const hints: addrinfo; res: ppaddrinfo): integer; overload; stdcall; external dllname;
function getaddrinfo(nodename, servname: PChar; const hints: addrinfo; var res: paddrinfo): integer; overload; stdcall; external dllname;
procedure p;
var
hints : addrinfo;
res : paddrinfo;
begin
getaddrinfo('localhost','ftp',hints,res);
end;
begin
end.