From ebf90d68e9472ad08e2840ecdbf0ad69fd339830 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Wed, 28 Oct 2020 01:08:44 -0400 Subject: [PATCH] [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. --- gcc/ada/sem_ch6.adb | 5 ++--- 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)) -- 2.7.4