paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 17:49:27 +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

8
rtl/win32/sockets.pp
View File

@ -22,13 +22,8 @@ Interface
windows,winsock,ctypes; windows,winsock,ctypes;
Type Type
cushort=word;
cuint16=word;
cuint32=cardinal;
size_t = cuint32; size_t = cuint32;
ssize_t = cint32; ssize_t = cint32;
cint =longint;
pcint =^cint;
tsocklen= cint; tsocklen= cint;
psocklen= ^tsocklen; psocklen= ^tsocklen;
@ -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;
@ -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;