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

* fixed accept, connect, recvfrom and sentto in windows sockets to use the right arguments for winsock2 calls

Browse Source 
git-svn-id: trunk@3895 -
This commit is contained in:
Almindor 2006-06-19 17:03:01 +00:00
parent 2a5332e3bd
commit 0dba7730b4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/sockets.pp
View File

@ -71,7 +71,7 @@ end;
function fpsendto (s:cint; msg:pointer; len:size_t; flags:cint; tox :psockaddr; tolen: tsocklen):ssize_t;
begin
// Dubious construct, this should be checked. (IPV6 fails ?)
fpSendTo:=WinSock2.SendTo(S,msg,Len,Flags,Winsock2.TSockAddr(tox^),toLen);
fpSendTo:=WinSock2.SendTo(S,msg,Len,Flags,Winsock2.PSockAddr(tox),toLen);
if fpSendTo<0 then
SocketError:=WSAGetLastError
else
@ -90,7 +90,7 @@ end;
function fprecvfrom (s:cint; buf: pointer; len: size_t; flags: cint; from : psockaddr; fromlen : psocklen):ssize_t;
begin
fpRecvFrom:=WinSock2.RecvFrom(S,Buf,Len,Flags,Winsock2.TSockAddr(from^),FromLen^);
fpRecvFrom:=WinSock2.RecvFrom(S,Buf,Len,Flags,WinSock2.PSockAddr(From),FromLen);
if fpRecvFrom<0 then
SocketError:=WSAGetLastError
else
@ -100,7 +100,7 @@ end;
function fpconnect (s:cint; name : psockaddr; namelen : tsocklen):cint;
begin
fpConnect:=Winsock2.Connect(S,Winsock2.TSockAddr(name^),nameLen);
fpConnect:=Winsock2.Connect(S,WinSock2.PSockAddr(name),nameLen);
if fpConnect<0 then
SocketError:=WSAGetLastError
else
@ -165,7 +165,7 @@ end;
function fpaccept (s:cint; addrx : psockaddr; addrlen : psocklen):cint;
begin
fpAccept:=Winsock2.Accept(S,Winsock2.PSockAddr(Addrx),plongint(@AddrLen));
fpAccept:=Winsock2.Accept(S,Winsock2.PSockAddr(Addrx), AddrLen);
if fpAccept<0 then
SocketError:=WSAGetLastError
else