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/restrict.adb | |
| 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/restrict.adb')
| -rw-r--r-- | gcc/ada/restrict.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index 2dae272..8c0f902 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -110,7 +110,7 @@ package body Restrict is No_Use_Of_Pragma : array (Pragma_Id) of Source_Ptr := (others => No_Location); -- Source location of pragma No_Use_Of_Pragma for given pragma, a value - -- of Sysstem_Location indicates occurrence in system.ads. + -- of System_Location indicates occurrence in system.ads. No_Use_Of_Pragma_Warning : array (Pragma_Id) of Boolean := (others => False); @@ -1571,9 +1571,9 @@ package body Restrict is procedure Set_Restriction_No_Specification_Of_Aspect (A_Id : Aspect_Id) is begin + No_Specification_Of_Aspect_Set := True; No_Specification_Of_Aspects (A_Id) := System_Location; No_Specification_Of_Aspect_Warning (A_Id) := False; - No_Specification_Of_Aspect_Set := True; end Set_Restriction_No_Specification_Of_Aspect; ----------------------------------------- @@ -1624,8 +1624,8 @@ package body Restrict is procedure Set_Restriction_No_Use_Of_Pragma (A_Id : Pragma_Id) is begin No_Use_Of_Pragma_Set := True; - No_Use_Of_Pragma_Warning (A_Id) := False; No_Use_Of_Pragma (A_Id) := System_Location; + No_Use_Of_Pragma_Warning (A_Id) := False; end Set_Restriction_No_Use_Of_Pragma; -------------------------------- |