From 053773d873781e0c637f76ff2e0c1f7b0b1ebc47 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 1 Jan 2003 14:34:22 +0000
Subject: [PATCH]   * sendto overload

---
 rtl/win32/sockets.pp |  7 +++++--
 rtl/win32/winsock.pp | 11 ++++++++---
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/rtl/win32/sockets.pp b/rtl/win32/sockets.pp
index 67eeab117c..badeb8568d 100644
--- a/rtl/win32/sockets.pp
+++ b/rtl/win32/sockets.pp
@@ -56,7 +56,7 @@ end;
 Function SendTo(Sock:Longint;Const Buf;BufLen,Flags:Longint;Var Addr; AddrLen : Longint):Longint;
 begin
   // Dubious construct, this should be checked.
-  SendTo:=WinSock.SendTo(Sock,pchar(@Buf),BufLen,Flags,Winsock.TSockAddr(Addr),AddrLen);
+  SendTo:=WinSock.SendTo(Sock,Buf,BufLen,Flags,Winsock.TSockAddr(Addr),AddrLen);
   if SendTo<0 then
     SocketError:=WSAGetLastError
   else
@@ -245,7 +245,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.9  2002-09-07 16:01:29  peter
+  Revision 1.10  2003-01-01 14:34:22  peter
+    * sendto overload
+
+  Revision 1.9  2002/09/07 16:01:29  peter
     * old logs removed and tabs fixed
 
   Revision 1.8  2002/07/17 07:28:21  pierre
diff --git a/rtl/win32/winsock.pp b/rtl/win32/winsock.pp
index dc56b4f6f2..9f1b8930c0 100644
--- a/rtl/win32/winsock.pp
+++ b/rtl/win32/winsock.pp
@@ -244,7 +244,7 @@ unit winsock;
                   sa_family : Smallint; (* 2 byte *)
                   sa_data : array[0..14-1] of char;    (* 14 byte *)
                  );
-       end;          
+       end;
        TSockAddrIn = sockaddr_in;
        PSockAddrIn = ^TSockAddrIn;
        TSockAddr = sockaddr_in;
@@ -716,7 +716,9 @@ unit winsock;
       external winsockdll name 'select';
     function send(s:TSocket;Const buf; len:tOS_INT; flags:tOS_INT):tOS_INT;stdcall;
       external winsockdll name 'send';
-    function sendto(s:TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT;Const toaddr:TSockAddr; tolen:tOS_INT):tOS_INT;stdcall;
+    function sendto(s:TSocket; buf:pchar; len:tOS_INT; flags:tOS_INT;toaddr:PSockAddr; tolen:tOS_INT):tOS_INT;stdcall;
+      external winsockdll name 'sendto';
+    function sendto(s:TSocket; Const buf; len:tOS_INT; flags:tOS_INT;Const toaddr:TSockAddr; tolen:tOS_INT):tOS_INT;stdcall;
       external winsockdll name 'sendto';
     function setsockopt(s:TSocket; level:tOS_INT; optname:tOS_INT; optval:pchar; optlen:tOS_INT):tOS_INT;stdcall;
       external winsockdll name 'setsockopt';
@@ -886,7 +888,10 @@ unit winsock;
 end.
 {
   $Log$
-  Revision 1.11  2002-12-25 01:04:03  peter
+  Revision 1.12  2003-01-01 14:34:22  peter
+    * sendto overload
+
+  Revision 1.11  2002/12/25 01:04:03  peter
     * sendto overload added
 
   Revision 1.10  2002/09/07 21:28:10  carl