diff options
| author | Yannick Moy <moy@adacore.com> | 2021-01-06 14:39:23 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-04 05:17:33 -0400 |
| commit | 716e7c15aba61327712f90c11afb766e9c69dbba (patch) | |
| tree | a8a5229d770112b19c4c053b4b144a45cc095f67 /gcc | |
| parent | f5a7c656e5ffde112fdcf122bc6b4ca5ed31643e (diff) | |
| download | gcc-716e7c15aba61327712f90c11afb766e9c69dbba.zip gcc-716e7c15aba61327712f90c11afb766e9c69dbba.tar.gz gcc-716e7c15aba61327712f90c11afb766e9c69dbba.tar.bz2 | |
[Ada] Move match function for pragma Warnings to public spec
gcc/ada/
* erroutc.adb (Matches): Move spec...
* erroutc.ads (Matches): ...here.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/erroutc.adb | 5 | ||||
| -rw-r--r-- | gcc/ada/erroutc.ads | 5 |
2 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/erroutc.adb b/gcc/ada/erroutc.adb index a3f0fdc..a2cd3c3 100644 --- a/gcc/ada/erroutc.adb +++ b/gcc/ada/erroutc.adb @@ -51,11 +51,6 @@ package body Erroutc is -- Local Subprograms -- ----------------------- - function Matches (S : String; P : String) return Boolean; - -- Returns true if the String S matches the pattern P, which can contain - -- wildcard chars (*). The entire pattern must match the entire string. - -- Case is ignored in the comparison (so X matches x). - function Sloc_In_Range (Loc, Start, Stop : Source_Ptr) return Boolean; -- Return whether Loc is in the range Start .. Stop, taking instantiation -- locations of Loc into account. This is useful for suppressing warnings diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index 03bc8a6..891391c 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -496,6 +496,11 @@ package Erroutc is -- Given an error message ID, return tag showing warning message class, or -- the null string if this option is not enabled or this is not a warning. + function Matches (S : String; P : String) return Boolean; + -- Returns true if the String S matches the pattern P, which can contain + -- wildcard chars (*). The entire pattern must match the entire string. + -- Case is ignored in the comparison (so X matches x). + procedure Output_Error_Msgs (E : in out Error_Msg_Id); -- Output source line, error flag, and text of stored error message and all -- subsequent messages for the same line and unit. On return E is set to be |