From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 5F514385800B; Thu, 6 Jan 2022 17:14:18 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 5F514385800B MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-6307] [Ada] Fix style in comments about warning messages X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: d763e11c21d609555e9ef9f2ddb2fab69419e753 X-Git-Newrev: 005146582c2ac4d6d451784f15781f11ce4f225b Message-Id: <20220106171418.5F514385800B@sourceware.org> Date: Thu, 6 Jan 2022 17:14:18 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 06 Jan 2022 17:14:18 -0000 https://gcc.gnu.org/g:005146582c2ac4d6d451784f15781f11ce4f225b commit r12-6307-g005146582c2ac4d6d451784f15781f11ce4f225b Author: Piotr Trojanek Date: Tue Dec 7 17:00:01 2021 +0100 [Ada] Fix style in comments about warning messages gcc/ada/ * errout.adb (Error_Msg_Internal): Reorder words. * erroutc.ads (Is_Warning_Msg): Add closing paren. * sem_util.adb (Compile_Time_Constraint_Error): Fix casing. Diff: --- gcc/ada/errout.adb | 2 +- gcc/ada/erroutc.ads | 2 +- gcc/ada/sem_util.adb | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 73bcfc5567d..652dbf0422a 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -1049,7 +1049,7 @@ package body Errout is elsif No (Cunit (Main_Unit)) then null; - -- If the flag location is not in the main extended source unit, then + -- If the flag location is not in the extended main source unit, then -- we want to eliminate the warning, unless it is in the extended -- main code unit and we want warnings on the instance. diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index 0c194e803d8..1c8940e639b 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -69,7 +69,7 @@ package Erroutc is Is_Warning_Msg : Boolean := False; -- Set True to indicate if current message is warning message (contains ? - -- or contains < and Error_Msg_Warn is True. + -- or contains < and Error_Msg_Warn is True). Is_Info_Msg : Boolean := False; -- Set True to indicate that the current message starts with the characters diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index e07e48749d6..3cf94292f79 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -6604,7 +6604,7 @@ package body Sem_Util is Error_Msg_Warn := Warn or SPARK_Mode /= On; -- A static constraint error in an instance body is not a fatal error. - -- we choose to inhibit the message altogether, because there is no + -- We choose to inhibit the message altogether, because there is no -- obvious node (for now) on which to post it. On the other hand the -- offending node must be replaced with a constraint_error in any case.