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-attr.ads | |
| parent | 9f1130cc81b12eb86e31275996b8a6bbe7118111 (diff) | |
| download | gcc-0ba3592b83b879af86127ae12b1af4402a909294.tar.gz | |
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-attr.ads')
| -rw-r--r-- | gcc/ada/prj-attr.ads | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gcc/ada/prj-attr.ads b/gcc/ada/prj-attr.ads index b171719de69..03e63d140f9 100644 --- a/gcc/ada/prj-attr.ads +++ b/gcc/ada/prj-attr.ads @@ -154,18 +154,19 @@ package Prj.Attr is -- Attribute is Empty_Attribute. -- -- To use this function, the following code should be used: + -- -- Pkg : constant Package_Node_Id := - -- Prj.Attr.Package_Node_Id_Of (Name => <package name>); + -- Prj.Attr.Package_Node_Id_Of (Name => <package name>); -- Att : constant Attribute_Node_Id := - -- Prj.Attr.Attribute_Node_Id_Of - -- (Name => <attribute name>, - -- Starting_At => First_Attribute_Of (Pkg)); + -- Prj.Attr.Attribute_Node_Id_Of + -- (Name => <attribute name>, + -- Starting_At => First_Attribute_Of (Pkg)); -- Kind : constant Attribute_Kind := Attribute_Kind_Of (Att); -- - -- However, you should not use this function once you have an already - -- parsed project tree. Instead, given a Project_Node_Id corresponding to - -- the attribute declaration ("for Attr (index) use ..."), it is simpler to - -- use + -- However, do not use this function once you have an already parsed + -- project tree. Instead, given a Project_Node_Id corresponding to the + -- attribute declaration ("for Attr (index) use ..."), use for example: + -- -- if Case_Insensitive (Attr, Tree) then ... procedure Set_Attribute_Kind_Of |