From 965a269d8bbaca4a96b1327607c9dc42ad9484d4 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Thu, 4 Jul 2019 08:06:10 +0000 Subject: [PATCH] [Ada] Minor typo fixes 2019-07-04 Piotr Trojanek gcc/ada/ * sem_util.adb (Yields_Synchronized_Object): Fix typos in comments. From-SVN: r273057 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/sem_util.adb | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * sem_util.adb (Yields_Synchronized_Object): Fix typos in + comments. + 2019-07-04 Yannick Moy * 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); -- 2.7.4