From: Gary Dismukes <dismukes@adacore.com>
Date: Wed, 28 Oct 2020 05:08:44 +0000 (-0400)
Subject: [Ada] Minor reformatting and a typo fix
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ebf90d68e9472ad08e2840ecdbf0ad69fd339830;p=gcc.git

[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.
---

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 0c403ed6649..3d397a1fefe 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 02cf0bc5648..d06e68cf94c 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))