diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:01:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:01:59 +0200 |
| commit | 0df5ae93e08e17fbe36bfcd1bda8ea24af968a64 (patch) | |
| tree | 160aed62a8b7dc8baaecb1c3e3d236c979273971 /gcc/ada/prj.ads | |
| parent | 9db78a423bbd92dfbfcaa5b33b040da21540d647 (diff) | |
| download | gcc-0df5ae93e08e17fbe36bfcd1bda8ea24af968a64.zip gcc-0df5ae93e08e17fbe36bfcd1bda8ea24af968a64.tar.gz gcc-0df5ae93e08e17fbe36bfcd1bda8ea24af968a64.tar.bz2 | |
[multiple changes]
2014-05-21 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Analyze_Aspect_Specifications):
Insert_Delayed_Pragma is now used for the case of Attach_Handler.
* sem_prag.adb: Minor comment improvements.
2014-05-21 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Install_Body): When checking whether freezing of
instantiation must be delayed, verify that the common enclosing
subprogram to generic and instance is in fact an overloadable
entity.
2014-05-21 Vincent Celier <celier@adacore.com>
* makeutl.adb (Mains.Complete_Mains.Do_Complete): Look for all
mains with the same name and fail if there is more than one.
* prj.ads, prj.adb (Find_All_Sources): New function
From-SVN: r210702
Diffstat (limited to 'gcc/ada/prj.ads')
| -rw-r--r-- | gcc/ada/prj.ads | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index 519e874..d0af1a2 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1525,6 +1525,24 @@ package Prj is -- Else it searches in the whole tree. -- If Index is specified, this only search for a source with that index. + type Source_Ids is array (Positive range <>) of Source_Id; + No_Sources : constant Source_Ids := (1 .. 0 => No_Source); + + function Find_All_Sources + (In_Tree : Project_Tree_Ref; + Project : Project_Id; + In_Imported_Only : Boolean := False; + In_Extended_Only : Boolean := False; + Base_Name : File_Name_Type; + Index : Int := 0) return Source_Ids; + -- Find all source files with the given name. + -- If In_Extended_Only is True, it will search in project and the project + -- it extends, but not in the imported projects. + -- Elsif In_Imported_Only is True, it will search in project and the + -- projects it imports, but not in the others or in aggregated projects. + -- Else it searches in the whole tree. + -- If Index is specified, this only search for sources with that index. + ----------------------- -- Project_Tree_Data -- ----------------------- |