From 716e7c15aba61327712f90c11afb766e9c69dbba Mon Sep 17 00:00:00 2001
From: Yannick Moy <moy@adacore.com>
Date: Wed, 6 Jan 2021 14:39:23 +0100
Subject: [PATCH] [Ada] Move match function for pragma Warnings to public spec
gcc/ada/
* erroutc.adb (Matches): Move spec...
* erroutc.ads (Matches): ...here.
---
gcc/ada/erroutc.adb | 5 -----
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 a3f0fdc3af42..a2cd3c3c7e02 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 03bc8a6cdccf..891391c5d435 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
--
GitLab