gcc/ada/
* sem_util.adb: Typo fix in comment.
* exp_aggr.adb: Likewise.
Tested on x86_64-pc-linux-gnu, committed on master.
---
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 27a7f3d2b49..bdaca4aab58 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 4e1258e7cec..1785931530f 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
--
2.43.2
