OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Arnaud Charlet 2004-11-25 17:14:01 +01:00
parent 061fd2bfd9
commit 670d2c11f5
3 changed files with 1 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/g-socthi-mingw.ads
View File

@ -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");

14
gcc/ada/g-socthi-vms.ads
View File

@ -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");

2
gcc/ada/mingw32.h
View File

@ -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- *