diff options
author | Gary Dismukes <dismukes@adacore.com> | 2020-10-28 01:08:44 -0400 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-26 03:39:56 -0500 |
commit | ebf90d68e9472ad08e2840ecdbf0ad69fd339830 (patch) | |
tree | 17fdb9e0af41c65550731bff8b5719a743218048 /gcc | |
parent | c9e2eeb5034fd3e2f262963ca5e2fd72667b3865 (diff) | |
download | gcc-ebf90d68e9472ad08e2840ecdbf0ad69fd339830.zip gcc-ebf90d68e9472ad08e2840ecdbf0ad69fd339830.tar.gz gcc-ebf90d68e9472ad08e2840ecdbf0ad69fd339830.tar.bz2 |
[Ada] Minor reformatting and a typo fix
gcc/ada/
* sem_ch6.adb (Analyze_Call_And_Resolve): Reformatted a comment.
* sem_prag.adb (Process_Restrictions_Or_Restriction_Warnings):
Fixed a typo.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/sem_ch6.adb | 5 | ||||
-rw-r--r-- | gcc/ada/sem_prag.adb | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 0c403ed..3d397a1 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -2421,9 +2421,8 @@ package body Sem_Ch6 is else Error_Msg_N ("invalid procedure or entry call", N); - -- Specialize the error message in the case where both a - -- primitive operation and a record component are visible - -- at the same time. + -- Specialize the error message in the case where both a primitive + -- operation and a record component are visible at the same time. if Nkind (P) = N_Selected_Component and then Is_Entity_Name (Selector_Name (P)) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 02cf0bc..d06e68c 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -10439,7 +10439,7 @@ package body Sem_Prag is end if; -- Special processing for No_Tasking restriction (not just a - -- warning) when it appears as a configuration pragmas. + -- warning) when it appears as a configuration pragma. elsif R_Id = No_Tasking and then No (Cunit (Main_Unit)) |