diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 10:47:50 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-09 10:47:50 +0000 |
| commit | 960a0aad5d0439ccfd4b3ac58f503c75511e19af (patch) | |
| tree | a9a5980ffa08d35bacf9a4af13ff23225023e899 /gcc/ada/prj-util.ads | |
| parent | 84ed75235e0062d03d7ff1477bc777e8f313b73f (diff) | |
| download | gcc-960a0aad5d0439ccfd4b3ac58f503c75511e19af.tar.gz | |
2012-07-09 Pascal Obry <obry@adacore.com>
* prj-util.adb, prj-util.ads (For_Interface_Sources): New routine.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189370 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-util.ads')
| -rw-r--r-- | gcc/ada/prj-util.ads | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads index bdf2948366d..96bfdb8cc3b 100644 --- a/gcc/ada/prj-util.ads +++ b/gcc/ada/prj-util.ads @@ -233,6 +233,17 @@ package Prj.Util is procedure Next (Iter : in out Source_Info_Iterator); -- Advance the iterator to the next source in the project + generic + with procedure Action (Source : Source_Id); + procedure For_Interface_Sources + (Tree : Project_Tree_Ref; Project : Project_Id); + -- Call Action for every sources that are needed to use Project. This + -- is either the sources corresponding to the unit in the Interfaces + -- attributes or all sources of the project. Note that only the body + -- needed (because the unit if generic or contains some inline pragmas) + -- are handled. This routine must be called only when the project as + -- sucessfully been built. + private type Text_File_Data is record FD : File_Descriptor := Invalid_FD; |