From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 4 Jul 2019 08:06:10 +0000 (+0000)
Subject: [Ada] Minor typo fixes
X-Git-Tag: upstream/12.2.0~23440
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=965a269d8bbaca4a96b1327607c9dc42ad9484d4;p=platform%2Fupstream%2Fgcc.git

[Ada] Minor typo fixes

2019-07-04  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

	* sem_util.adb (Yields_Synchronized_Object): Fix typos in
	comments.

From-SVN: r273057
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 665b2b0..34a86ca 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-07-04  Piotr Trojanek  <trojanek@adacore.com>
+
+	* sem_util.adb (Yields_Synchronized_Object): Fix typos in
+	comments.
+
 2019-07-04  Yannick Moy  <moy@adacore.com>
 
 	* sem_util.adb (Yields_Synchronized_Object): Adapt to new SPARK
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 0fdbed6..4d19c61 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -26407,12 +26407,12 @@ package body Sem_Util is
 
       --  A record type or type extension yields a synchronized object when its
       --  discriminants (if any) lack default values and all components are of
-      --  a type that yelds a synchronized object.
+      --  a type that yields a synchronized object.
 
       elsif Is_Record_Type (Typ) then
 
          --  Inspect all entities defined in the scope of the type, looking for
-         --  components of a type that does not yeld a synchronized object or
+         --  components of a type that does not yield a synchronized object or
          --  for discriminants with default values.
 
          Id := First_Entity (Typ);