aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorGary Dismukes <dismukes@adacore.com>2020-10-28 01:08:44 -0400
committerPierre-Marie de Rodat <derodat@adacore.com>2020-11-26 03:39:56 -0500
commitebf90d68e9472ad08e2840ecdbf0ad69fd339830 (patch)
tree17fdb9e0af41c65550731bff8b5719a743218048 /gcc
parentc9e2eeb5034fd3e2f262963ca5e2fd72667b3865 (diff)
downloadgcc-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.adb5
-rw-r--r--gcc/ada/sem_prag.adb2
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))