* some cosmetic cleanups while investigating bug 4154 which was already

	fixed.


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@814 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 13 deletions

diff --git a/rtl/win32/sockets.pp b/rtl/win32/sockets.pp
index 62fd51ca62..707d942de8 100644
--- a/rtl/win32/sockets.pp
+++ b/rtl/win32/sockets.pp
@@ -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;