From: Gary Dismukes <dismukes@adacore.com>
Date: Fri, 6 Jan 2017 10:40:04 +0000 (+0000)
Subject: sem_prag.adb, [...]: Minor typo fixes.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ea1135b83e3c021e45af01ed4cdc5149cd676933;p=gcc.git

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 beabccb874e..74082655728 100644
--- 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 db0d9d31bdf..d6e76cfbe28 100644
--- 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 f2002caeb22..9b773269ee8 100644
--- 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 e02e7325e95..6055e82d4ed 100644
--- 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;