paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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;
Type
cushort=word;
cuint16=word;
cuint32=cardinal;
size_t =cuint32;
ssize_t=cint32;
cint =longint;
pcint =^cint;
tsocklen=cint;
psocklen=^tsocklen;
size_t = cuint32;
ssize_t = cint32;
tsocklen= cint;
psocklen= ^tsocklen;
Const
@ -49,8 +44,6 @@ Implementation
Basic Socket Functions
******************************************************************************}
//function fprecvmsg (s:cint; msg: pmsghdr; flags:cint):ssize_t;
//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;
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
SocketError:=WSAGetLastError
else
@ -292,7 +285,6 @@ begin
// SocketPair:=SocketCall(Socket_Sys_SocketPair,Domain,SocketType,Protocol,longint(@Pair),0,0);a
end;
{$ifdef unix}
{ mimic the linux fpWrite/fpRead calls for the file/text socket wrapper }
function fpWrite(handle : longint;Const bufptr;size : dword) : dword;