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

Merged revisions 3895 via svnmerge from

Browse Source 
http://svn.freepascal.org/svn/fpc/trunk

........
  r3895 | Almindor | 2006-06-19 19:03:01 +0200 (Po, 19 jún 2006) | 1 line
  
  * fixed accept, connect, recvfrom and sentto in windows sockets to use the right arguments for winsock2 calls
........

git-svn-id: branches/fixes_2_0@3899 -
This commit is contained in:
Almindor 2006-06-20 06:44:13 +00:00
parent 3d37753846
commit 50e917d725
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/win32/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