From 1680f24534be567238abba99bca0a06407c43f96 Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 25 Jun 2009 08:17:18 +0000 Subject: [PATCH] 2009-06-25 Robert Dewar * exp_ch6.adb, g-socket.ads, g-socket.adb, sem_ch3.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148928 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/exp_ch6.adb | 1 + gcc/ada/g-socket.adb | 2 ++ gcc/ada/g-socket.ads | 17 ++++++++--------- gcc/ada/sem_ch3.adb | 5 ++++- 5 files changed, 20 insertions(+), 10 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5d58ca37cf6..11542429f1a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2009-06-25 Robert Dewar + + * exp_ch6.adb, g-socket.ads, g-socket.adb, sem_ch3.adb: Minor + reformatting + 2009-06-24 Robert Dewar * prj-nmsc.adb, prj-nmsc.ads, prj-proc.adb, prj.adb: Minor reformatting diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 0b4ea237961..d1a5630ab3e 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -4450,6 +4450,7 @@ package body Exp_Ch6 is then declare Bod : constant Node_Id := Body_To_Inline (N); + begin Set_Has_Completion (Subp, False); Append_Freeze_Action (Subp, Bod); diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb index 909cf0dec30..a473aadc7b5 100644 --- a/gcc/ada/g-socket.adb +++ b/gcc/ada/g-socket.adb @@ -1622,6 +1622,7 @@ package body GNAT.Sockets is then -- No data sent and first index is first Stream_Element_Offset'First -- Last is set to Stream_Element_Offset'Last. + Last := Ada.Streams.Stream_Element_Offset'Last; else Last := Item'First + Ada.Streams.Stream_Element_Offset (Res - 1); @@ -1902,6 +1903,7 @@ package body GNAT.Sockets is then -- No data sent and first index is first Stream_Element_Offset'First -- Last is set to Stream_Element_Offset'Last. + Last := Ada.Streams.Stream_Element_Offset'Last; else Last := Item'First + Ada.Streams.Stream_Element_Offset (Res - 1); diff --git a/gcc/ada/g-socket.ads b/gcc/ada/g-socket.ads index 593c96e4813..c5bf4730e18 100644 --- a/gcc/ada/g-socket.ads +++ b/gcc/ada/g-socket.ads @@ -935,15 +935,14 @@ package GNAT.Sockets is Flags : Request_Flag_Type := No_Request_Flag); pragma Inline (Send_Socket); -- Transmit a message over a socket. For a datagram socket, the address - -- is given by To.all. For a stream socket, To must be null. Last is - -- the index value such that Item (Last) is the last character - -- sent. Note that Last is set to Item'First - 1 (or to - -- Stream_Element_Array'Last if Item'First is - -- Stream_Element_Offset'First) when the socket has been closed by - -- peer. This is not an error and no exception is raised. Flags allows - -- to control the transmission. Raises Socket_Error on error. Note: - -- this subprogram is inlined because it is also used to implement the - -- two variants below. + -- is given by To.all. For a stream socket, To must be null. Last + -- is the index value such that Item (Last) is the last character + -- sent. Note that Last is set to Item'First - 1 (if Item'First is + -- Stream_Element_Offset'First, to Stream_Element_Array'Last) when the + -- socket has been closed by peer. This is not an error and no exception + -- is raised. Flags allows control of the transmission. Raises exception + -- Socket_Error on error. Note: this subprogram is inlined because it is + -- also used to implement the two variants below. procedure Send_Socket (Socket : Socket_Type; diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 828babdd2ac..ff702a6a107 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -8610,8 +8610,11 @@ package body Sem_Ch3 is -- which has to have the flag Comes_From_Source for other purposes): -- we assume that the expander will provide the missing completion. -- In case of previous errors, other expansion actions that provide - -- bodies for null procedures with not be invoked. so inhibit message + -- bodies for null procedures with not be invoked, so inhibit message -- in those cases. + -- Note that E_Operator is not in the list that follows, because + -- this kind is reserved for predefined operators, that are + -- intrinsic and do not need completion. elsif Ekind (E) = E_Function or else Ekind (E) = E_Procedure -- 2.11.0