diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:04:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-05-21 15:04:54 +0200 |
| commit | b7b92f15d30a1cae3d59af69dad849fe4025f24f (patch) | |
| tree | 216101f8a11441cc9848074c0539cf34e7ba9bd5 /gcc/ada/erroutc.ads | |
| parent | 0df5ae93e08e17fbe36bfcd1bda8ea24af968a64 (diff) | |
| download | gcc-b7b92f15d30a1cae3d59af69dad849fe4025f24f.zip gcc-b7b92f15d30a1cae3d59af69dad849fe4025f24f.tar.gz gcc-b7b92f15d30a1cae3d59af69dad849fe4025f24f.tar.bz2 | |
[multiple changes]
2014-05-21 Robert Dewar <dewar@adacore.com>
* prj.ads, sem_ch12.adb, prj.adb, exp_pakd.adb,
sem_elab.ads: Minor reformatting.
* erroutc.adb, erroutc.ads (Warning_Specifically_Suppressed): Make Tag
parameter optional.
2014-05-21 Pascal Obry <obry@adacore.com>
* prj-dect.adb: Allow package Install in aggregate project.
From-SVN: r210703
Diffstat (limited to 'gcc/ada/erroutc.ads')
| -rw-r--r-- | gcc/ada/erroutc.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index 219238a..96ac676 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -557,13 +557,13 @@ package Erroutc is function Warning_Specifically_Suppressed (Loc : Source_Ptr; Msg : String_Ptr; - Tag : String) return String_Id; + Tag : String := "") return String_Id; -- Determines if given message to be posted at given location is suppressed -- by specific ON/OFF Warnings pragmas specifying this particular message. -- If the warning is not suppressed then No_String is returned, otherwise -- the corresponding warning string is returned (or the null string if no -- Warning argument was present in the pragma). Tag is the error message - -- tag for the message in question. + -- tag for the message in question or the null string if there is no tag. function Warning_Treated_As_Error (Msg : String) return Boolean; -- Returns True if the warning message Msg matches any of the strings |