diff options
| author | Marc Poulhiès <poulhies@adacore.com> | 2024-01-08 15:50:03 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-14 10:19:59 +0200 |
| commit | 0ec8c070f3ccebc9a58ecb593c2e5cfdb6bcfd5c (patch) | |
| tree | cf5d65b6b02a5ae99533e0ad7324b9ddb1efedff | |
| parent | 26afb0040cf728de82db2c1417c5a2973d06f0aa (diff) | |
| download | gcc-0ec8c070f3ccebc9a58ecb593c2e5cfdb6bcfd5c.zip gcc-0ec8c070f3ccebc9a58ecb593c2e5cfdb6bcfd5c.tar.gz gcc-0ec8c070f3ccebc9a58ecb593c2e5cfdb6bcfd5c.tar.bz2 | |
ada: Minor typo fix in comment
gcc/ada/
* sem_util.adb: Typo fix in comment.
* exp_aggr.adb: Likewise.
| -rw-r--r-- | gcc/ada/exp_aggr.adb | 2 | ||||
| -rw-r--r-- | 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 27a7f3d..bdaca4a 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 4e1258e..1785931 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 |