From: Gary Dismukes <dismukes@adacore.com>
Date: Fri, 3 Apr 2020 18:19:43 +0000 (-0400)
Subject: [Ada] Fix two typos
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=93b0021d8c1478a2de07db6ffc7d0cab052b83a1;p=gcc.git

[Ada] Fix two typos

2020-06-16  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* sem_ch6.adb: Add closing paren in a comment.
	* sem_util.adb: Correct comment typo (aggreate => aggregate).
---

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 8ff017a8572..188ee7597dd 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -1269,7 +1269,7 @@ package body Sem_Ch6 is
          --  only once, i.e. not to the simple return statement generated at
          --  the end of its expansion because, prior to leaving the function,
          --  the accessibility level of the return object changes to be a level
-         --  determined by the point of call (RM 3.10.2(10.8/3).
+         --  determined by the point of call (RM 3.10.2(10.8/3)).
 
          if Ada_Version >= Ada_2005
            and then Ekind (R_Type) = E_Anonymous_Access_Type
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index dd9ab2ea6d6..366eaff3746 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -17042,7 +17042,7 @@ package body Sem_Util is
                return Ada_Version >= Ada_2012
                  and then Is_Object_Reference (Expression (N));
 
-            --  In Ada 95 an aggreate is an object reference
+            --  In Ada 95 an aggregate is an object reference
 
             when N_Aggregate =>
                return Ada_Version >= Ada_95;