[gcc(refs/users/guojiufu/heads/personal-branch)] [Ada] Fix two typos
Jiu Fu Guo
guojiufu@gcc.gnu.org
Mon Aug 10 05:58:42 GMT 2020
https://gcc.gnu.org/g:93b0021d8c1478a2de07db6ffc7d0cab052b83a1
commit 93b0021d8c1478a2de07db6ffc7d0cab052b83a1
Author: Gary Dismukes <dismukes@adacore.com>
Date: Fri Apr 3 14:19:43 2020 -0400
[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:
---
gcc/ada/sem_ch6.adb | 2 +-
gcc/ada/sem_util.adb | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
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;
More information about the Gcc-cvs
mailing list