From c1c22e7a703c6e1d638195f667c9f1ce72ef6de5 Mon Sep 17 00:00:00 2001 From: Geert Bosch Date: Mon, 17 Dec 2001 22:00:59 +0100 Subject: 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 --- gcc/ada/g-socket.ads | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'gcc/ada/g-socket.ads') 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 -- cgit v1.1