diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:08:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:08:13 +0200 |
| commit | 23e28b42173b30e3ebe2b8e5765b01dc7fd60da2 (patch) | |
| tree | 975fd0944fae6262222dccf289f20d09a24008ef /gcc/ada/restrict.adb | |
| parent | b7b92f15d30a1cae3d59af69dad849fe4025f24f (diff) | |
| download | gcc-23e28b42173b30e3ebe2b8e5765b01dc7fd60da2.zip gcc-23e28b42173b30e3ebe2b8e5765b01dc7fd60da2.tar.gz gcc-23e28b42173b30e3ebe2b8e5765b01dc7fd60da2.tar.bz2 | |
[multiple changes]
2014-05-21 Robert Dewar <dewar@adacore.com>
* sem_elab.adb, prj-dect.adb: Minor reformatting.
2014-05-21 Robert Dewar <dewar@adacore.com>
* erroutc.ads: Minor comment addition.
2014-05-21 Robert Dewar <dewar@adacore.com>
* errout.ads: Add documentation for use of >*> tag.
* restrict.adb: Make sure we use >*> tag for restriction warnings.
2014-05-21 Gary Dismukes <dismukes@adacore.com>
* debug.adb: Add case of illegal overriding_indicator for a
protected subprogram body to description of -gnatd.E switch.
* sem_ch6.adb (Verify_Overriding_Indicator): Issue error message
for cases of giving overriding_indicators on protected subprogram
bodies, but change this to a warning if -gnatd.E is enabled. No
longer give a style warning about missing indicators on protected
subprogram bodies.
From-SVN: r210704
Diffstat (limited to 'gcc/ada/restrict.adb')
| -rw-r--r-- | gcc/ada/restrict.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb index abf294a..78591c1 100644 --- a/gcc/ada/restrict.adb +++ b/gcc/ada/restrict.adb @@ -303,7 +303,7 @@ package body Restrict is Error_Msg_Node_1 := N; Error_Msg_Warn := No_Use_Of_Attribute_Warning (A_Id); Error_Msg_N - ("<violation of restriction `No_Use_Of_Attribute '='> &`#", N); + ("<*<violation of restriction `No_Use_Of_Attribute '='> &`#", N); end if; end Check_Restriction_No_Use_Of_Attribute; @@ -336,7 +336,7 @@ package body Restrict is Error_Msg_Node_1 := Id; Error_Msg_Warn := No_Use_Of_Pragma_Warning (P_Id); Error_Msg_N - ("<violation of restriction `No_Use_Of_Pragma '='> &`#", Id); + ("<*<violation of restriction `No_Use_Of_Pragma '='> &`#", Id); end if; end Check_Restriction_No_Use_Of_Pragma; @@ -645,7 +645,7 @@ package body Restrict is if No_Dependences.Table (J).Warn then Error_Msg - ("??violation of restriction `No_Dependence '='> &`#", + ("?*?violation of restriction `No_Dependence '='> &`#", Sloc (Err)); else Error_Msg @@ -691,7 +691,7 @@ package body Restrict is Error_Msg_Node_1 := Id; Error_Msg_Warn := No_Specification_Of_Aspect_Warning (A_Id); Error_Msg_N - ("<violation of restriction `No_Specification_Of_Aspect '='> &`#", + ("<*<violation of restriction `No_Specification_Of_Aspect '='> &`#", Id); end if; end Check_Restriction_No_Specification_Of_Aspect; |