diff options
| -rw-r--r-- | gcc/ada/g-socthi-mingw.ads | 12 | ||||
| -rw-r--r-- | gcc/ada/g-socthi-vms.ads | 14 | ||||
| -rw-r--r-- | gcc/ada/mingw32.h | 2 |
3 files changed, 1 insertions, 27 deletions
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- * |