OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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
This commit is contained in:
Arnaud Charlet 2009-04-29 15:24:07 +02:00
parent 96b2073821
commit 0ec21a5bb7
3 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/ChangeLog
View File

@ -1,3 +1,12 @@
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

8
gcc/ada/prj-part.adb
View File

@ -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;

2
gcc/ada/targparm.ads
View File

@ -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