diff options
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)) |