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

* fix for socketerror problems; x86_64 specific (NEED_SOCKETCALL).

Browse Source 
internal_socketerror now set after calls, Mantis 13506
  

git-svn-id: trunk@13021 -
This commit is contained in:
marco 2009-04-19 21:02:28 +00:00
parent 9102bff319
commit 9f3b8511ba
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/linux/unixsock.inc
View File

@ -148,76 +148,91 @@ end;
function fpsocket (domain:cint; xtype:cint; protocol: cint):cint; function fpsocket (domain:cint; xtype:cint; protocol: cint):cint;
begin begin
fpSocket:=do_syscall(syscall_nr_socket,Domain,xtype,Protocol); fpSocket:=do_syscall(syscall_nr_socket,Domain,xtype,Protocol);
internal_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:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,0,0); fpSend:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,0,0);
internal_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:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,TSysParam(tox),tolen); fpSendto:=do_syscall(syscall_nr_sendto,S,TSysParam(msg),Len,Flags,TSysParam(tox),tolen);
internal_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:=do_syscall(syscall_nr_Recvfrom,S,tsysparam(buf),len,flags,0,0); fpRecv:=do_syscall(syscall_nr_Recvfrom,S,tsysparam(buf),len,flags,0,0);
internal_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:=do_syscall(syscall_nr_Recvfrom,S,TSysParam(buf),len,flags,TSysParam(from),TSysParam(fromlen)); fpRecvFrom:=do_syscall(syscall_nr_Recvfrom,S,TSysParam(buf),len,flags,TSysParam(from),TSysParam(fromlen));
internal_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:=do_syscall(syscall_nr_Bind,S,TSysParam(addrx),addrlen); fpBind:=do_syscall(syscall_nr_Bind,S,TSysParam(addrx),addrlen);
internal_socketerror:=fpgeterrno;
end; end;
function fplisten (s:cint; backlog : cint):cint; function fplisten (s:cint; backlog : cint):cint;
begin begin
fpListen:=do_syscall(syscall_nr_Listen,S,backlog); fpListen:=do_syscall(syscall_nr_Listen,S,backlog);
internal_socketerror:=fpgeterrno;
end; end;
function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint; function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint;
begin begin
fpAccept:=do_syscall(syscall_nr_accept,S,TSysParam(addrx),TSysParam(addrlen)); fpAccept:=do_syscall(syscall_nr_accept,S,TSysParam(addrx),TSysParam(addrlen));
internal_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:=do_syscall(syscall_nr_connect,S,TSysParam(name),namelen); fpConnect:=do_syscall(syscall_nr_connect,S,TSysParam(name),namelen);
internal_socketerror:=fpgeterrno;
end; end;
function fpshutdown (s:cint; how:cint):cint; function fpshutdown (s:cint; how:cint):cint;
begin begin
fpShutDown:=do_syscall(syscall_nr_shutdown,S,how); fpShutDown:=do_syscall(syscall_nr_shutdown,S,how);
internal_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:=do_syscall(syscall_nr_GetSockName,S,TSysParam(name),TSysParam(namelen)); fpGetSockName:=do_syscall(syscall_nr_GetSockName,S,TSysParam(name),TSysParam(namelen));
internal_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:=do_syscall(syscall_nr_GetPeerName,S,TSysParam(name),TSysParam(namelen)); fpGetPeerName:=do_syscall(syscall_nr_GetPeerName,S,TSysParam(name),TSysParam(namelen));
internal_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:=do_syscall(syscall_nr_SetSockOpt,S,level,optname,TSysParam(optval),optlen); fpSetSockOpt:=do_syscall(syscall_nr_SetSockOpt,S,level,optname,TSysParam(optval),optlen);
internal_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:=do_syscall(syscall_nr_GetSockOpt,S,level,TSysParam(optname),TSysParam(optval),TSysParam(optlen)); fpGetSockOpt:=do_syscall(syscall_nr_GetSockOpt,S,level,TSysParam(optname),TSysParam(optval),TSysParam(optlen));
internal_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:=do_syscall(syscall_nr_SocketPair,d,xtype,protocol,TSysParam(sv)); fpSocketPair:=do_syscall(syscall_nr_SocketPair,d,xtype,protocol,TSysParam(sv));
internal_socketerror:=fpgeterrno;
end; end;
{$endif NEED_do_syscall} {$endif NEED_do_syscall}