[multiple changes]

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

	* prj-part.adb (Parse_Single_Project): Do not attempt to find a
	project extending an abstract project.

2009-04-29  Eric Botcazou  <ebotcazou@adacore.com>

	* targparm.ads: Fix oversight.

From-SVN: r146965

gcc/ada/ChangeLog

+2009-04-29  Vincent Celier  <celier@adacore.com>
+
+	* prj-part.adb (Parse_Single_Project): Do not attempt to find a
+	project extending an abstract project.
+
+2009-04-29  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* targparm.ads: Fix oversight.
+
 2009-04-29  Ed Schonberg  <schonberg@adacore.com>
 
 	* lib-xref.adb (Output_Overridden_Op): Follow several levels of

gcc/ada/prj-part.adb

@@ -1096,14 +1096,14 @@ package body Prj.Part is
                                 (A_Project_Name_And_Node.Node, In_Tree);
 
                      Prj  : Project_Node_Id :=
-                              Extending_Project_Of (Decl, In_Tree);
+                              A_Project_Name_And_Node.Node;
 
                   begin
+                     while
+                       Extending_Project_Of (Decl, In_Tree) /= Empty_Node
                      loop
-                        Decl := Project_Declaration_Of (Prj, In_Tree);
-                        exit when Extending_Project_Of (Decl, In_Tree) =
-                          Empty_Node;
                         Prj := Extending_Project_Of (Decl, In_Tree);
+                        Decl := Project_Declaration_Of (Prj, In_Tree);
                      end loop;
 
                      A_Project_Name_And_Node.Node := Prj;

gcc/ada/targparm.ads

@@ -446,7 +446,7 @@ package Targparm is
    -- Control of Stack Checking --
    -------------------------------
 
-   --  GNAT provides two methods of implementing exceptions:
+   --  GNAT provides three methods of implementing exceptions:
 
    --    GCC Probing Mechanism