public inbox for gcc-cvs@sourceware.org help / color / mirror / Atom feed
From: Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-1682] [Ada] Minor reformattings Date: Mon, 21 Jun 2021 11:05:44 +0000 (GMT) [thread overview] Message-ID: <20210621110544.0150B389850B@sourceware.org> (raw) https://gcc.gnu.org/g:48cf9f997518c79fbe1144093f609dbc22b1be4f commit r12-1682-g48cf9f997518c79fbe1144093f609dbc22b1be4f Author: Ghjuvan Lacambre <lacambre@adacore.com> 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
reply other threads:[~2021-06-21 11:05 UTC|newest] Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions: You may reply publicly to this message via plain-text email using any one of the following methods: * Save the following mbox file, import it into your mail client, and reply-to-all from there: mbox Avoid top-posting and favor interleaved quoting: https://en.wikipedia.org/wiki/Posting_style#Interleaved_style * Reply using the --to, --cc, and --in-reply-to switches of git-send-email(1): git send-email \ --in-reply-to=20210621110544.0150B389850B@sourceware.org \ --to=pmderodat@gcc.gnu.org \ --cc=gcc-cvs@gcc.gnu.org \ /path/to/YOUR_REPLY https://kernel.org/pub/software/scm/git/docs/git-send-email.html * If your mail client supports setting the In-Reply-To header via mailto: links, try the mailto: linkBe sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).