diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-26 12:42:26 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-05-26 12:42:26 +0200 |
commit | b68cf874f69d47c08479f4b0e7bcd1d55d65d06b (patch) | |
tree | 1f417d3b2712348bd8f2b06a57f72d67dd16d7d5 /gcc/ada/targparm.ads | |
parent | ff1bedacc81800f47632971f6474e4e2f9cfb86f (diff) | |
download | gcc-b68cf874f69d47c08479f4b0e7bcd1d55d65d06b.zip gcc-b68cf874f69d47c08479f4b0e7bcd1d55d65d06b.tar.gz gcc-b68cf874f69d47c08479f4b0e7bcd1d55d65d06b.tar.bz2 |
[multiple changes]
2015-05-26 Robert Dewar <dewar@adacore.com>
* sem_ch3.adb, sem_aux.adb, sem_aux.ads, exp_ch6.adb, sprint.adb:
Minor reformatting.
2015-05-26 Gary Dismukes <dismukes@adacore.com>
* gnat1drv.adb, targparm.adb, targparm.ads, restrict.adb: Minor
reformatting and typo fixes in comments.
2015-05-26 Ed Schonberg <schonberg@adacore.com>
* sem_ch7.adb (Swap_Private_Dependets): Set visibility of
the two views of a private dependent in two separate steps,
to ensure proper visibility in parent units analyzed for inlining.
From-SVN: r223682
Diffstat (limited to 'gcc/ada/targparm.ads')
-rw-r--r-- | gcc/ada/targparm.ads | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/targparm.ads b/gcc/ada/targparm.ads index 18c6c57..a1b7661 100644 --- a/gcc/ada/targparm.ads +++ b/gcc/ada/targparm.ads @@ -621,12 +621,12 @@ package Targparm is type Set_NSA_Type is access procedure (Asp : Name_Id; OK : out Boolean); -- Parameter type for Get_Target_Parameters that records a Restriction - -- No_Specificaztion_Of_Aspect. Asp is the pragma name. OK is set True + -- No_Specification_Of_Aspect. Asp is the aspect name. OK is set True -- if this is an OK aspect name, and False if it is not an aspect name. type Set_NUA_Type is access procedure (Attr : Name_Id; OK : out Boolean); -- Parameter type for Get_Target_Parameters that records a Restriction - -- No_Use_Of_Attribute. Prag is the attribute name. OK is set True if + -- No_Use_Of_Attribute. Attr is the attribute name. OK is set True if -- this is an OK attribute name, and False if it is not an attribute name. type Set_NUP_Type is access procedure (Prag : Name_Id; OK : out Boolean); @@ -646,13 +646,13 @@ package Targparm is Set_NUP : Set_NUP_Type := null); -- Called at the start of execution to obtain target parameters from the -- source of package System. The parameters provide the source text to be - -- scanned (in System_Text (Source_First .. Source_Last)). if the three + -- scanned (in System_Text (Source_First .. Source_Last)). If the three -- subprograms Make_Id, Make_SC, and Set_NOD are left at their default -- value of null, Get_Target_Parameters will ignore pragma Restrictions - -- No_Dependence lines, otherwise it will use these three subprograms to - -- record them. Similarly if Set_NUP is left at its default value of null, + -- (No_Dependence) lines; otherwise it will use these three subprograms to + -- record them. Similarly, if Set_NUP is left at its default value of null, -- then any occurrences of pragma Restrictions (No_Use_Of_Pragma => XXX) - -- will be ignored, otherwise it will use this procedure to record the + -- will be ignored; otherwise it will use this procedure to record the -- pragma. Similarly for the NSA and NUA cases. procedure Get_Target_Parameters |