diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-29 17:16:34 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-29 17:16:34 +0100 |
| commit | a4ab03b018e60eab02159bf335acdaf0478380fe (patch) | |
| tree | 858a358892e9faf3fa9832b3c91596f167a744a3 /gcc | |
| parent | 68d3bacf0d74c8990e7b1520649b1f2b151d31f5 (diff) | |
| download | gcc-a4ab03b018e60eab02159bf335acdaf0478380fe.zip gcc-a4ab03b018e60eab02159bf335acdaf0478380fe.tar.gz gcc-a4ab03b018e60eab02159bf335acdaf0478380fe.tar.bz2 | |
Code clean up.
From-SVN: r207263
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/prj-part.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/prj-part.adb b/gcc/ada/prj-part.adb index 5384735..771f83a 100644 --- a/gcc/ada/prj-part.adb +++ b/gcc/ada/prj-part.adb @@ -155,8 +155,7 @@ package body Prj.Part is (Flags : Processing_Flags; In_Tree : Project_Node_Tree_Ref; Project : Project_Node_Id); - -- Check that a non aggregate project does not import any aggregate - -- project. + -- Check that a non aggregate project does not import an aggregate project procedure Create_Virtual_Extending_Project (For_Project : Project_Node_Id; @@ -1116,18 +1115,19 @@ package body Prj.Part is In_Tree : Project_Node_Tree_Ref; Project : Project_Node_Id) is - With_Clause, Imported : Project_Node_Id; + With_Clause : Project_Node_Id; + Imported : Project_Node_Id; + begin if Project_Qualifier_Of (Project, In_Tree) /= Aggregate then With_Clause := First_With_Clause_Of (Project, In_Tree); - while Present (With_Clause) loop Imported := Project_Node_Of (With_Clause, In_Tree); if Project_Qualifier_Of (Imported, In_Tree) = Aggregate then Error_Msg_Name_1 := Name_Id (Path_Name_Of (Imported, In_Tree)); - Error_Msg (Flags, "cannot import aggregate project %%", - Token_Ptr); + Error_Msg + (Flags, "cannot import aggregate project %%", Token_Ptr); exit; end if; |