[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 665b2b008705d3b11f20edb797dfc0569fecc29d..34a86ca402b0b62be1f9dcfdca57ecb8e666b0e9 100644 (file)
--- 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 0fdbed6bef4785c0e9d84412878d55f4a23e937c..4d19c6147143f25fc54df56f9bb86b569a1b7819 100644 (file)
--- 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);