diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-17 22:00:59 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-17 22:00:59 +0100 |
| commit | c1c22e7a703c6e1d638195f667c9f1ce72ef6de5 (patch) | |
| tree | 425ca9a59ec19c276fa2119f9e7b007ba368384d /gcc/ada/g-socket.ads | |
| parent | 7eb7bb079d2fb0c22d9e31995a3ea8d812e5a042 (diff) | |
| download | gcc-c1c22e7a703c6e1d638195f667c9f1ce72ef6de5.zip gcc-c1c22e7a703c6e1d638195f667c9f1ce72ef6de5.tar.gz gcc-c1c22e7a703c6e1d638195f667c9f1ce72ef6de5.tar.bz2 | |
ali.adb: Type reference does not reset current file.
* ali.adb: Type reference does not reset current file.
* ali.adb: Recognize and scan renaming reference
* ali.ads: Add spec for storing renaming references.
* lib-xref.ads: Add documentation for handling of renaming references
* lib-xref.adb: Implement output of renaming reference.
* checks.adb:
(Determine_Range): Document local variables
(Determine_Range): Make sure Hbound is initialized. It looks as though
there could be a real problem here with an uninitialized reference
to Hbound, but no actual example of failure has been found.
* g-socket.ads:
Fix comment of Shutdown_Socket and Close_Socket. These functions
should not fail silently because if they are called twice, this
probably means that there is a race condition in the user program.
Anyway, this behaviour is consistent with the rest of this unit.
When an error occurs, an exception is raised with the error message
as exception message.
From-SVN: r48125
Diffstat (limited to 'gcc/ada/g-socket.ads')
| -rw-r--r-- | gcc/ada/g-socket.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 4837ece..2ed95ed 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.1 $ +-- $Revision$ -- -- -- Copyright (C) 2001 Ada Core Technologies, Inc. -- -- -- @@ -622,7 +622,6 @@ package GNAT.Sockets is procedure Close_Socket (Socket : Socket_Type); -- Close a socket and more specifically a non-connected socket. - -- Fail silently. procedure Connect_Socket (Socket : Socket_Type; @@ -718,7 +717,7 @@ package GNAT.Sockets is -- Shutdown a connected socket. If How is Shut_Read, further -- receives will be disallowed. If How is Shut_Write, further -- sends will be disallowed. If how is Shut_Read_Write, further - -- sends and receives will be disallowed. Fail silently. + -- sends and receives will be disallowed. type Stream_Access is access all Ada.Streams.Root_Stream_Type'Class; -- Same interface as Ada.Streams.Stream_IO |