From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 0150B389850B; Mon, 21 Jun 2021 11:05:44 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 0150B389850B 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-1682] [Ada] Minor reformattings X-Act-Checkin: gcc X-Git-Author: Ghjuvan Lacambre X-Git-Refname: refs/heads/master X-Git-Oldrev: 805f081980883d3c4fd3b90dc3baadd529c86839 X-Git-Newrev: 48cf9f997518c79fbe1144093f609dbc22b1be4f Message-Id: <20210621110544.0150B389850B@sourceware.org> Date: Mon, 21 Jun 2021 11:05:44 +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: Mon, 21 Jun 2021 11:05:44 -0000 https://gcc.gnu.org/g:48cf9f997518c79fbe1144093f609dbc22b1be4f commit r12-1682-g48cf9f997518c79fbe1144093f609dbc22b1be4f Author: Ghjuvan Lacambre Date: Wed Mar 17 19:13:17 2021 +0100 [Ada] Minor reformattings gcc/ada/ * errout.adb (Handle_Serious_Error): Capitalize comment. * exp_dbug.adb (Set_Entity_Name): Capitalize sentence. * exp_dist.adb (Expand_All_Calls_Remote_Subprogram_Call): Fix typo. * sem_ch3.adb (Modular_Type_Declaration): Add space after comma. Diff: --- gcc/ada/errout.adb | 2 +- gcc/ada/exp_dbug.adb | 2 +- gcc/ada/exp_dist.adb | 6 +++--- gcc/ada/sem_ch3.adb | 2 +- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index 16f7aa3a85c..e4a0d4a0d6e 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -1032,7 +1032,7 @@ package body Errout is if In_Extended_Main_Source_Unit (Sptr) then null; - -- If the main unit has not been read yet. the warning must be on + -- If the main unit has not been read yet. The warning must be on -- a configuration file: gnat.adc or user-defined. This means we -- are not parsing the main unit yet, so skip following checks. diff --git a/gcc/ada/exp_dbug.adb b/gcc/ada/exp_dbug.adb index ef7b0241adb..ed5ae43be9b 100644 --- a/gcc/ada/exp_dbug.adb +++ b/gcc/ada/exp_dbug.adb @@ -1557,7 +1557,7 @@ package body Exp_Dbug is then Set_BNPE_Suffix (Ent); - -- Strip trailing n's and last trailing b as required. note that + -- Strip trailing n's and last trailing b as required. Note that -- we know there is at least one b, or no suffix would be generated. while Name_Buffer (Name_Len) = 'n' loop diff --git a/gcc/ada/exp_dist.adb b/gcc/ada/exp_dist.adb index 7fb21325bd5..9805457f27f 100644 --- a/gcc/ada/exp_dist.adb +++ b/gcc/ada/exp_dist.adb @@ -2859,9 +2859,9 @@ package body Exp_Dist is if E_Calling_Stubs = Empty then RCI_Locator := RCI_Locator_Table.Get (RCI_Package); - -- The RCI_Locator package and calling stub are is inserted at the - -- top level in the current unit, and must appear in the proper scope - -- so that it is not prematurely removed by the GCC back end. + -- The RCI_Locator package and calling stub are inserted at the top + -- level in the current unit, and must appear in the proper scope so + -- that it is not prematurely removed by the GCC back end. declare Scop : constant Entity_Id := Cunit_Entity (Current_Sem_Unit); diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 4982fcd4721..594e08ef744 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -19736,7 +19736,7 @@ package body Sem_Ch3 is begin -- If the mod expression is (exactly) 2 * literal, where literal is - -- 128 or less,then almost certainly the * was meant to be **. Warn. + -- 128 or less, then almost certainly the * was meant to be **. Warn. if Warn_On_Suspicious_Modulus_Value and then Nkind (Mod_Expr) = N_Op_Multiply