From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 25 Nov 2004 16:14:01 +0000 (+0100)
Subject: g-socthi-mingw.ads, [...]: Remove C_Read and C_Write from internal implementation... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=670d2c11f50be49b96293634720c460df8a2ca7e;p=gcc.git

g-socthi-mingw.ads, [...]: Remove C_Read and C_Write from internal implementation unit GNAT.Sockets.Thin...

	* g-socthi-mingw.ads, g-socthi-vms.ads: Remove C_Read and C_Write from
	internal implementation unit GNAT.Sockets.Thin,
	as their usage for sockets is non-portable (using the read and write
	functions from the system runtime library is fine on UNIX but won't
	work under Windows).

	* mingw32.h: Update copyright notice.

From-SVN: r91297
---

diff --git a/gcc/ada/g-socthi-mingw.ads b/gcc/ada/g-socthi-mingw.ads
index f13b907ecf0..33567a8cb71 100644
--- a/gcc/ada/g-socthi-mingw.ads
+++ b/gcc/ada/g-socthi-mingw.ads
@@ -262,11 +262,6 @@ package GNAT.Sockets.Thin is
      (S       : C.int;
       Backlog : C.int) return C.int;
 
-   function C_Read
-     (Fildes : C.int;
-      Buf    : System.Address;
-      Nbyte  : C.int) return C.int;
-
    function C_Readv
      (Socket : C.int;
       Iov    : System.Address;
@@ -329,11 +324,6 @@ package GNAT.Sockets.Thin is
    function C_System
      (Command : System.Address) return C.int;
 
-   function C_Write
-     (Fildes : C.int;
-      Buf    : System.Address;
-      Nbyte  : C.int) return C.int;
-
    function C_Writev
      (Socket : C.int;
       Iov    : System.Address;
@@ -408,7 +398,6 @@ private
    pragma Import (Stdcall, C_Inet_Addr, "inet_addr");
    pragma Import (Stdcall, C_Ioctl, "ioctlsocket");
    pragma Import (Stdcall, C_Listen, "listen");
-   pragma Import (C, C_Read, "_read");
    pragma Import (Stdcall, C_Recv, "recv");
    pragma Import (Stdcall, C_Recvfrom, "recvfrom");
    pragma Import (Stdcall, C_Send, "send");
@@ -418,7 +407,6 @@ private
    pragma Import (Stdcall, C_Socket, "socket");
    pragma Import (C, C_Strerror, "strerror");
    pragma Import (C, C_System, "_system");
-   pragma Import (C, C_Write, "_write");
    pragma Import (Stdcall, Socket_Errno, "WSAGetLastError");
    pragma Import (Stdcall, Set_Socket_Errno, "WSASetLastError");
    pragma Import (Stdcall, WSAStartup, "WSAStartup");
diff --git a/gcc/ada/g-socthi-vms.ads b/gcc/ada/g-socthi-vms.ads
index 47f2827d761..d0f1c373c82 100644
--- a/gcc/ada/g-socthi-vms.ads
+++ b/gcc/ada/g-socthi-vms.ads
@@ -273,12 +273,6 @@ package GNAT.Sockets.Thin is
 
    function C_Listen (S, Backlog : C.int) return C.int;
 
-   function C_Read
-     (Fd    : C.int;
-      Buf   : System.Address;
-      Count : C.int)
-      return  C.int;
-
    function C_Readv
      (Fd     : C.int;
       Iov    : System.Address;
@@ -352,12 +346,6 @@ package GNAT.Sockets.Thin is
      (Command : System.Address)
       return    C.int;
 
-   function C_Write
-     (Fd    : C.int;
-      Buf   : System.Address;
-      Count : C.int)
-      return  C.int;
-
    function C_Writev
      (Fd     : C.int;
       Iov    : System.Address;
@@ -427,13 +415,11 @@ private
    pragma Import (C, C_Getsockopt,    "DECC$GETSOCKOPT");
    pragma Import (C, C_Inet_Addr,     "DECC$INET_ADDR");
    pragma Import (C, C_Listen,        "DECC$LISTEN");
-   pragma Import (C, C_Read,          "DECC$READ");
    pragma Import (C, C_Select,        "DECC$SELECT");
    pragma Import (C, C_Setsockopt,    "DECC$SETSOCKOPT");
    pragma Import (C, C_Shutdown,      "DECC$SHUTDOWN");
    pragma Import (C, C_Strerror,      "DECC$STRERROR");
    pragma Import (C, C_System,        "DECC$SYSTEM");
-   pragma Import (C, C_Write,         "DECC$WRITE");
 
    pragma Import (C, Free_Socket_Set, "__gnat_free_socket_set");
    pragma Import (C, Get_Socket_From_Set, "__gnat_get_socket_from_set");
diff --git a/gcc/ada/mingw32.h b/gcc/ada/mingw32.h
index 7fe531cf97f..df1e2644058 100644
--- a/gcc/ada/mingw32.h
+++ b/gcc/ada/mingw32.h
@@ -6,7 +6,7 @@
  *                                                                          *
  *                              C Header File                               *
  *                                                                          *
- *            Copyright (C) 2002, Free Software Foundation, Inc.            *
+ *          Copyright (C) 2002-2004, Free Software Foundation, Inc.         *
  *                                                                          *
  * GNAT is free software;  you can  redistribute it  and/or modify it under *
  * terms of the  GNU General Public License as published  by the Free Soft- *