[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 0c403ed66498fe173efd9766713ed76876f95c63..3d397a1fefe68cf1973830768d70ad82895cc3af 100644 (file)
--- 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 02cf0bc564831adc249bfc09e067a2ecdbf14434..d06e68cf94c745efafa1823c4f9dd5249b78a836 100644 (file)
--- 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))