diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 09:47:07 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-03 09:47:07 +0000 |
commit | 0ba3592b83b879af86127ae12b1af4402a909294 (patch) | |
tree | bf32fcc18f39f261c97a358abbe5ce7237af61a1 /gcc/ada/prj.ads | |
parent | 9f1130cc81b12eb86e31275996b8a6bbe7118111 (diff) | |
download | ppe42-gcc-0ba3592b83b879af86127ae12b1af4402a909294.tar.gz ppe42-gcc-0ba3592b83b879af86127ae12b1af4402a909294.zip |
2011-08-03 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb, sem_ch3.adb, lib.ads, gnatcmd.adb, prj-proc.adb,
make.adb, lib-writ.adb, prj-part.adb, prj-part.ads, prj-ext.adb,
fname-uf.adb, prj-ext.ads, prj.adb, prj.ads, sem_attr.adb, alfa.adb,
prj-makr.adb, errout.adb, makeutl.adb, makeutl.ads, restrict.ads,
sem_ch6.adb, g-pehage.adb, clean.adb, put_alfa.adb, lib-xref-alfa.adb,
prj-nmsc.adb, prj-nmsc.ads, sem_ch8.adb, prj-pars.ads, exp_aggr.adb,
prj-attr.ads, sem_ch13.adb, get_alfa.adb, prj-env.adb, prj-env.ads,
alfa_test.adb, prj-tree.adb, prj-tree.ads, einfo.ads: Minor reformatting
2011-08-03 Robert Dewar <dewar@adacore.com>
* repinfo.adb (List_Mechanism): Add handling of
Convention_Ada_Pass_By_XXX.
* sem_mech.adb (Set_Mechanism): Ditto.
* sem_prag.adb (Process_Convention): Add entries for
Convention_Ada_Pass_By_XXX.
* snames.adb-tmpl, snames.ads-tmpl: Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177252 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj.ads')
-rw-r--r-- | gcc/ada/prj.ads | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads index ebcc815c76e..1e60bdc6f8b 100644 --- a/gcc/ada/prj.ads +++ b/gcc/ada/prj.ads @@ -1102,7 +1102,8 @@ package Prj is -- Free the memory used for List procedure Add_Aggregated_Project - (Project : Project_Id; Path : Path_Name_Type); + (Project : Project_Id; + Path : Path_Name_Type); -- Add a new aggregated project in Project. -- The aggregated project has not been processed yet. This procedure should -- the called while processing the aggregate project, and as a result @@ -1111,6 +1112,7 @@ package Prj is ------------------ -- Project_Data -- ------------------ + -- The following record describes a project file representation type Project_Data (Qualifier : Project_Qualifier := Unspecified) is record @@ -1314,9 +1316,10 @@ package Prj is -- in the project tree. ----------------------------- - -- qualifier-specific data -- + -- Qualifier-Specific data -- ----------------------------- - -- The following fields are only valid for specific types of projects. + + -- The following fields are only valid for specific types of projects case Qualifier is when Aggregate => @@ -1462,10 +1465,10 @@ package Prj is (Project : Project_Id; With_State : in out State); procedure For_Every_Project_Imported - (By : Project_Id; - With_State : in out State; + (By : Project_Id; + With_State : in out State; Include_Aggregated : Boolean := True; - Imported_First : Boolean := False); + Imported_First : Boolean := False); -- Call Action for each project imported directly or indirectly by project -- By, as well as extended projects. -- |