diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-03-17 19:13:17 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-06-21 06:45:07 -0400 |
| commit | 48cf9f997518c79fbe1144093f609dbc22b1be4f (patch) | |
| tree | b0753041f214c36043004725224852dde22db703 /gcc | |
| parent | 805f081980883d3c4fd3b90dc3baadd529c86839 (diff) | |
| download | gcc-48cf9f997518c79fbe1144093f609dbc22b1be4f.zip gcc-48cf9f997518c79fbe1144093f609dbc22b1be4f.tar.gz gcc-48cf9f997518c79fbe1144093f609dbc22b1be4f.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/errout.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_dbug.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_dist.adb | 6 | ||||
| -rw-r--r-- | 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 16f7aa3..e4a0d4a 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 ef7b024..ed5ae43 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 7fb2132..9805457 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 4982fcd..594e08e 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 |