[multiple changes]

2009-04-29  Vincent Celier  <celier@adacore.com>

	* prj-part.adb: Minor comment update

2009-04-29  Ed Schonberg  <schonberg@adacore.com>

	* sem_aggr.adb (Resolve_Record_Aggregate): handle properly
	box-initialized records with discriminated subcomponents that are
	constrained by discriminants of enclosing components. New subsidiary
	procedures Add_Discriminant_Values, Propagate_Discriminants.

2009-04-29  Arnaud Charlet  <charlet@adacore.com>

	* g-socket.adb: Code clean up.

From-SVN: r146976

gcc/ada/ChangeLog

+2009-04-29  Vincent Celier  <celier@adacore.com>
+
+	* prj-part.adb: Minor comment update
+
+2009-04-29  Ed Schonberg  <schonberg@adacore.com>
+
+	* sem_aggr.adb (Resolve_Record_Aggregate): handle properly
+	box-initialized records with discriminated subcomponents that are
+	constrained by discriminants of enclosing components. New subsidiary
+	procedures Add_Discriminant_Values, Propagate_Discriminants.
+
+2009-04-29  Arnaud Charlet  <charlet@adacore.com>
+
+	* g-socket.adb: Code clean up.
+
 2009-04-29  Gary Dismukes  <dismukes@adacore.com>
 
 	* sem_aggr.adb (Valid_Limited_Ancestor): Add test for the name of a

gcc/ada/g-socket.adb

@@ -1904,7 +1904,8 @@ package body GNAT.Sockets is
       Count  : out Ada.Streams.Stream_Element_Count;
       Flags  : Request_Flag_Type := No_Request_Flag)
    is
-      use type SOSC.Msg_Iovlen_T;
+      use SOSC;
+      use Interfaces.C;
 
       Res            : ssize_t;
       Iov_Count      : SOSC.Msg_Iovlen_T;

gcc/ada/prj-part.adb

@@ -1101,10 +1101,10 @@ package body Prj.Part is
                   begin
                      --  Loop through extending projects to find the ultimate
                      --  extending project, that is the one that is not
-                     --  extended. But don't attempt to find an extending
-                     --  project if the initial project is an abstract project,
-                     --  as it may have been extended several time, so it
-                     --  cannot have a single extending project.
+                     --  extended. For an abstract project, as it can be
+                     --  extended several times, there is no extending project
+                     --  registered, so the loop does not execute and the
+                     --  resulting project is the abstract project.
 
                      while
                        Extending_Project_Of (Decl, In_Tree) /= Empty_Node