diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-12 12:19:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-07-12 12:19:13 +0200 |
| commit | cd20e505e752c0434869baec3ac4fe7ac55a32b9 (patch) | |
| tree | 3f3cf576d4f28db8d3db474fab9bab784ed55f9c /gcc/ada/prj.adb | |
| parent | 381ec0f4cd325bdab94621649483c993f8f4139f (diff) | |
| download | gcc-cd20e505e752c0434869baec3ac4fe7ac55a32b9.tar.gz | |
[multiple changes]
2012-07-12 Robert Dewar <dewar@adacore.com>
* make.adb, sem_ch9.adb, prj.adb, s-rident.ads, snames.ads-tmpl: Minor
reformatting.
2012-07-12 Javier Miranda <miranda@adacore.com>
* exp_ch3.adb (Is_User_Defined_Equality): New subprogram.
(Make_Neq_Body): New subprogram.
(Make_Predefined_Primitive_Specs): Adding local variable
Has_Predef_Eq_ Renaming to ensure that we enable the machinery
which handles renamings of predefined primitive operators.
From-SVN: r189432
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index d70315bbbbc..150d524d30f 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -599,12 +599,14 @@ package body Prj is function Has_Sources (P : Project_Id) return Boolean is Lang : Language_Ptr; + begin Lang := P.Languages; while Lang /= No_Language_Index loop if Lang.First_Source /= No_Source then return True; end if; + Lang := Lang.Next; end loop; @@ -617,6 +619,7 @@ package body Prj is function Get_From_Tree (P : Project_Id) return Project_Id is List : Project_List := Tree.Projects; + begin if not Has_Sources (P) then while List /= null loop @@ -625,6 +628,7 @@ package body Prj is then return List.Project; end if; + List := List.Next; end loop; end if; @@ -632,8 +636,12 @@ package body Prj is return P; end Get_From_Tree; + -- Local variables + List : Project_List; + -- Start of processing for Recursive_Check + begin if not Seen_Name.Contains (Project.Name) then |