2009-04-09 Robert Dewar <dewar@adacore.com>

	* sem_attr.adb (Check_Stream_Attribute): Check violation of
	restriction No_Streams

	* gnat_rm.texi: Clarify No_Streams restriction

	* g-socket.adb: Minor reformatting.

2009-04-09  Thomas Quinot  <quinot@adacore.com>

	* g-socket.ads: Mark Initialize and Finalize as obsolesent interfaces.

2009-04-09  Geert Bosch  <bosch@adacore.com>

	* exp_fixd.adb (Build_Conversion): Accept new optional Trunc argument.
	(Set_Result): Likewise.
	(Expand_Convert_Float_To_Fixed): Have Set_Result truncate the
	conversion, as required by RM 4.6(31).



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145801 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 8 insertions, 2 deletions

diff --git a/gcc/ada/g-socket.adb b/gcc/ada/g-socket.adb
index 55629d2c46a..92407cc188b 100644
--- a/gcc/ada/g-socket.adb
+++ b/gcc/ada/g-socket.adb
@@ -802,6 +802,7 @@ package body GNAT.Sockets is
 
    procedure Finalize (X : in out Sockets_Library_Controller) is
       pragma Unreferenced (X);
+
    begin
       --  Finalization operation for the GNAT.Sockets package
 
@@ -817,6 +818,7 @@ package body GNAT.Sockets is
       --  This is a dummy placeholder for an obsolete API.
       --  The real finalization actions are in Initialize primitive operation
       --  of Sockets_Library_Controller.
+
       null;
    end Finalize;
 
@@ -1304,6 +1306,7 @@ package body GNAT.Sockets is
 
    procedure Initialize (X : in out Sockets_Library_Controller) is
       pragma Unreferenced (X);
+
    begin
       --  Initialization operation for the GNAT.Sockets package
 
@@ -1325,7 +1328,8 @@ package body GNAT.Sockets is
            "incorrect Process_Blocking_IO setting, expected " & Expected'Img;
       end if;
 
-      --  This is a dummy placeholder for an obsolete API.
+      --  This is a dummy placeholder for an obsolete API
+
       --  Real initialization actions are in Initialize primitive operation
       --  of Sockets_Library_Controller.
 
@@ -1338,9 +1342,11 @@ package body GNAT.Sockets is
 
    procedure Initialize is
    begin
-      --  This is a dummy placeholder for an obsolete API.
+      --  This is a dummy placeholder for an obsolete API
+
       --  Real initialization actions are in Initialize primitive operation
       --  of Sockets_Library_Controller.
+
       null;
    end Initialize;