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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index beabccb874ebd8576241441754af3881050e7835..74082655728d176de8c5a457cc1b20b7f5f6f1eb 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb
index db0d9d31bdfc1ce8893bc2c1c0dcc88451e27c0f..d6e76cfbe287c7b71c655f563b5cb10e403f0ae3 100644 (file)
--- a/gcc/ada/rtsfind.adb
+++ b/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)

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index f2002caeb22491e1450e1b5061578ae533682974..9b773269ee8c4d428db4bdf8f39ebb60d792cfd5 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/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

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index e02e7325e9568326b28e3d876ec2088660404862..6055e82d4edd1135b309bdf6b9b4e93e45d5cb4c 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/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;