From fc3c244f4a907e8de76deee75feaa821eb091382 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 7 Aug 2005 10:47:28 +0000
Subject: [PATCH]  * some cosmetic cleanups while investigating bug #4154 which
 was already 	fixed.

git-svn-id: trunk@814 -
---
 rtl/win32/sockets.pp | 18 +++++-------------
 1 file 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;