[gcc r15-476] ada: Minor typo fix in comment

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:0ec8c070f3ccebc9a58ecb593c2e5cfdb6bcfd5c

commit r15-476-g0ec8c070f3ccebc9a58ecb593c2e5cfdb6bcfd5c
Author: Marc Poulhiès <poulh...@adacore.com>
Date:   Mon Jan 8 15:50:03 2024 +0100

    ada: Minor typo fix in comment
    
    gcc/ada/
    
            * sem_util.adb: Typo fix in comment.
            * exp_aggr.adb: Likewise.

Diff:
---
 gcc/ada/exp_aggr.adb | 2 +-
 gcc/ada/sem_util.adb | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 27a7f3d2b495..bdaca4aab58b 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -1988,7 +1988,7 @@ package body Exp_Aggr is
       --  STEP 1: Process component associations
 
       --  For those associations that may generate a loop, initialize
-      --  Loop_Actions to collect inserted actions that may be crated.
+      --  Loop_Actions to collect inserted actions that may be created.
 
       --  Skip this if no component associations
 
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 4e1258e7cecd..1785931530f8 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -7785,7 +7785,7 @@ package body Sem_Util is
             Set_Is_Immediately_Visible (E, False);
 
          --  Case of renaming declaration constructed for package instances.
-         --  if there is an explicit declaration with the same identifier,
+         --  If there is an explicit declaration with the same identifier,
          --  the renaming is not immediately visible any longer, but remains
          --  visible through selected component notation.
 
@@ -7794,7 +7794,7 @@ package body Sem_Util is
          then
             Set_Is_Immediately_Visible (E, False);
 
-         --  The new entity may be the package renaming, which has the same
+         --  The new entity may be the package renaming, which has the
          --  same name as a generic formal which has been seen already.
 
          elsif Nkind (Parent (Def_Id)) = N_Package_Renaming_Declaration