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

* socketerror

Browse Source 
git-svn-id: trunk@2687 -
This commit is contained in:
marco 2006-02-26 00:51:19 +00:00
parent e8a2e42975
commit 4509209df7
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/stdsock.inc
View File

@ -39,75 +39,90 @@ function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint;
begin begin
fpaccept:=cfpaccept(s,addrx,addrlen); fpaccept:=cfpaccept(s,addrx,addrlen);
socketerror:=fpgeterrno;
end; end;
function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint; function fpbind (s:cint; addrx : psockaddr; addrlen : tsocklen):cint;
begin begin
fpbind:=cfpbind (s,addrx,addrlen); fpbind:=cfpbind (s,addrx,addrlen);
socketerror:=fpgeterrno;
end; end;
function fpconnect (s:cint; name : psockaddr; namelen : tsocklen):cint; function fpconnect (s:cint; name : psockaddr; namelen : tsocklen):cint;
begin begin
fpconnect:=cfpconnect (s,name,namelen); fpconnect:=cfpconnect (s,name,namelen);
socketerror:=fpgeterrno;
end; end;
function fpgetpeername (s:cint; name : psockaddr; namelen : psocklen):cint; function fpgetpeername (s:cint; name : psockaddr; namelen : psocklen):cint;
begin begin
fpgetpeername:=cfpgetpeername (s,name,namelen); fpgetpeername:=cfpgetpeername (s,name,namelen);
socketerror:=fpgeterrno;
end; end;
function fpgetsockname (s:cint; name : psockaddr; namelen : psocklen):cint; function fpgetsockname (s:cint; name : psockaddr; namelen : psocklen):cint;
begin begin
fpgetsockname:=cfpgetsockname(s,name,namelen); fpgetsockname:=cfpgetsockname(s,name,namelen);
socketerror:=fpgeterrno;
end; end;
function fpgetsockopt (s:cint; level:cint; optname:cint; optval:pointer; optlen : psocklen):cint; function fpgetsockopt (s:cint; level:cint; optname:cint; optval:pointer; optlen : psocklen):cint;
begin begin
fpgetsockopt:=cfpgetsockopt(s,level,optname,optval,optlen); fpgetsockopt:=cfpgetsockopt(s,level,optname,optval,optlen);
socketerror:=fpgeterrno;
end; end;
function fplisten (s:cint; backlog : cint):cint; function fplisten (s:cint; backlog : cint):cint;
begin begin
fplisten:=cfplisten(s,backlog); fplisten:=cfplisten(s,backlog);
socketerror:=fpgeterrno;
end; end;
function fprecv (s:cint; buf: pointer; len: size_t; flags:cint):ssize_t; function fprecv (s:cint; buf: pointer; len: size_t; flags:cint):ssize_t;
begin begin
fprecv:= cfprecv (s,buf,len,flags); fprecv:= cfprecv (s,buf,len,flags);
socketerror:=fpgeterrno;
end; end;
function fprecvfrom (s:cint; buf: pointer; len: size_t; flags: cint; from : psockaddr; fromlen : psocklen):ssize_t; function fprecvfrom (s:cint; buf: pointer; len: size_t; flags: cint; from : psockaddr; fromlen : psocklen):ssize_t;
begin begin
fprecvfrom:= cfprecvfrom (s,buf,len,flags,from,fromlen); fprecvfrom:= cfprecvfrom (s,buf,len,flags,from,fromlen);
socketerror:=fpgeterrno;
end; end;
function fpsend (s:cint; msg:pointer; len:size_t; flags:cint):ssize_t; function fpsend (s:cint; msg:pointer; len:size_t; flags:cint):ssize_t;
begin begin
fpsend:=cfpsend (s,msg,len,flags); fpsend:=cfpsend (s,msg,len,flags);
socketerror:=fpgeterrno;
end; end;
function fpsendto (s:cint; msg:pointer; len:size_t; flags:cint; tox :psockaddr; tolen: tsocklen):ssize_t; function fpsendto (s:cint; msg:pointer; len:size_t; flags:cint; tox :psockaddr; tolen: tsocklen):ssize_t;
begin begin
fpsendto:=cfpsendto (s,msg,len,flags,tox,tolen); fpsendto:=cfpsendto (s,msg,len,flags,tox,tolen);
socketerror:=fpgeterrno;
end; end;
function fpsetsockopt (s:cint; level:cint; optname:cint; optval:pointer; optlen :tsocklen):cint; function fpsetsockopt (s:cint; level:cint; optname:cint; optval:pointer; optlen :tsocklen):cint;
begin begin
fpsetsockopt:=cfpsetsockopt(s,level,optname,optval,optlen); fpsetsockopt:=cfpsetsockopt(s,level,optname,optval,optlen);
socketerror:=fpgeterrno;
end; end;
function fpshutdown (s:cint; how:cint):cint; function fpshutdown (s:cint; how:cint):cint;
begin begin
fpshutdown:=cfpshutdown(s,how); fpshutdown:=cfpshutdown(s,how);
socketerror:=fpgeterrno;
end; end;
function fpsocket (domain:cint; xtype:cint; protocol: cint):cint; function fpsocket (domain:cint; xtype:cint; protocol: cint):cint;
begin begin
fpsocket:=cfpsocket(domain,xtype,protocol); fpsocket:=cfpsocket(domain,xtype,protocol);
socketerror:=fpgeterrno;
end; end;
function fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint; function fpsocketpair (d:cint; xtype:cint; protocol:cint; sv:pcint):cint;
begin begin
fpsocketpair:=cfpsocketpair(d,xtype,protocol,sv); fpsocketpair:=cfpsocketpair(d,xtype,protocol,sv);
socketerror:=fpgeterrno;
end; end;