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

* some cosmetic cleanups while investigating bug #4154 which was already

Browse Source 
fixed.

git-svn-id: trunk@814 -
This commit is contained in:
marco 2005-08-07 10:47:28 +00:00
parent be090fcf7b
commit fc3c244f4a
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/win32/sockets.pp
View File

@ -22,15 +22,10 @@ Interface
windows,winsock,ctypes; windows,winsock,ctypes;
Type Type
cushort=word; size_t = cuint32;
cuint16=word; ssize_t = cint32;
cuint32=cardinal; tsocklen= cint;
size_t =cuint32; psocklen= ^tsocklen;
ssize_t=cint32;
cint =longint;
pcint =^cint;
tsocklen=cint;
psocklen=^tsocklen;
Const Const
@ -49,8 +44,6 @@ Implementation
Basic Socket Functions Basic Socket Functions
******************************************************************************} ******************************************************************************}
//function fprecvmsg (s:cint; msg: pmsghdr; flags:cint):ssize_t; //function fprecvmsg (s:cint; msg: pmsghdr; flags:cint):ssize_t;
//function fpsendmsg (s:cint; hdr: pmsghdr; flags:cint):ssize; //function fpsendmsg (s:cint; hdr: pmsghdr; flags:cint):ssize;
@ -97,7 +90,7 @@ 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:=WinSock.RecvFrom(S,Buf,Len,Flags,Winsock.TSockAddr(from^),FromLen^); fpRecvFrom:=WinSock.RecvFrom(S,Buf,Len,Flags,Winsock.TSockAddr(from^),FromLen^);
if fpRecvFrom<0 then if fpRecvFrom<0 then
SocketError:=WSAGetLastError SocketError:=WSAGetLastError
else else
@ -292,7 +285,6 @@ begin
// SocketPair:=SocketCall(Socket_Sys_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);a // SocketPair:=SocketCall(Socket_Sys_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);a
end; end;
{$ifdef unix} {$ifdef unix}
{ mimic the linux fpWrite/fpRead calls for the file/text socket wrapper } { mimic the linux fpWrite/fpRead calls for the file/text socket wrapper }
function fpWrite(handle : longint;Const bufptr;size : dword) : dword; function fpWrite(handle : longint;Const bufptr;size : dword) : dword;