sem_prag.adb, [...]: Minor typo fixes.

2017-01-06  Gary Dismukes  <dismukes@adacore.com>

	* sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes.

From-SVN: r244127

gcc/ada/ChangeLog

+2017-01-06  Gary Dismukes  <dismukes@adacore.com>
+
+	* sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes.
+
 2017-01-06  Tristan Gingold  <gingold@adacore.com>
 
 	* ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All.

gcc/ada/rtsfind.adb

@@ -1351,7 +1351,7 @@ package body Rtsfind is
       --  is System. If so, return the value from the already compiled
       --  declaration and otherwise do a regular find.
 
-      --  Not pleasant, but these kinds of annoying recursion senarios when
+      --  Not pleasant, but these kinds of annoying recursion scenarios when
       --  writing an Ada compiler in Ada have to be broken somewhere.
 
       if Present (Main_Unit_Entity)

gcc/ada/sem_prag.adb

@@ -17728,8 +17728,8 @@ package body Sem_Prag is
 
             end if;
 
-            --  Manually subsitute the expression value of the pragma argument
-            --  if it not an integer literally because this is not taken care
+            --  Manually substitute the expression value of the pragma argument
+            --  if it's not an integer literal because this is not taken care
             --  of automatically elsewhere.
 
             if Nkind (Arg) /= N_Integer_Literal then

gcc/ada/sem_util.adb

@@ -8359,8 +8359,8 @@ package body Sem_Util is
       Prag : constant Entity_Id := Get_Pragma (Id, Pragma_Max_Queue_Length);
 
    begin
-      --  A value of 0 represents no maximum specified and entries and entry
-      --  families with no Max_Queue_Length aspect or pragma defaults to it.
+      --  A value of 0 represents no maximum specified, and entries and entry
+      --  families with no Max_Queue_Length aspect or pragma default to it.
 
       if not Has_Max_Queue_Length (Id) or else not Present (Prag) then
          return Uint_0;