diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2017-01-06 10:40:04 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 11:40:04 +0100 |
| commit | ea1135b83e3c021e45af01ed4cdc5149cd676933 (patch) | |
| tree | 21465567ae34a1f4cb181a6a1e4236c272866fb1 /gcc | |
| parent | 442d1abbc4915d78e2309392b126443fe54c6b37 (diff) | |
| download | gcc-ea1135b83e3c021e45af01ed4cdc5149cd676933.zip gcc-ea1135b83e3c021e45af01ed4cdc5149cd676933.tar.gz gcc-ea1135b83e3c021e45af01ed4cdc5149cd676933.tar.bz2 | |
sem_prag.adb, [...]: Minor typo fixes.
2017-01-06 Gary Dismukes <dismukes@adacore.com>
* sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes.
From-SVN: r244127
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/rtsfind.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sem_prag.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_util.adb | 4 |
4 files changed, 9 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index beabccb..7408265 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2017-01-06 Gary Dismukes <dismukes@adacore.com> + + * sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes. + 2017-01-06 Tristan Gingold <gingold@adacore.com> * ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All. diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index db0d9d3..d6e76cf 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -1351,7 +1351,7 @@ package body Rtsfind is -- is System. If so, return the value from the already compiled -- declaration and otherwise do a regular find. - -- Not pleasant, but these kinds of annoying recursion senarios when + -- Not pleasant, but these kinds of annoying recursion scenarios when -- writing an Ada compiler in Ada have to be broken somewhere. if Present (Main_Unit_Entity) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index f2002ca..9b77326 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -17728,8 +17728,8 @@ package body Sem_Prag is end if; - -- Manually subsitute the expression value of the pragma argument - -- if it not an integer literally because this is not taken care + -- Manually substitute the expression value of the pragma argument + -- if it's not an integer literal because this is not taken care -- of automatically elsewhere. if Nkind (Arg) /= N_Integer_Literal then diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index e02e732..6055e82 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -8359,8 +8359,8 @@ package body Sem_Util is Prag : constant Entity_Id := Get_Pragma (Id, Pragma_Max_Queue_Length); begin - -- A value of 0 represents no maximum specified and entries and entry - -- families with no Max_Queue_Length aspect or pragma defaults to it. + -- A value of 0 represents no maximum specified, and entries and entry + -- families with no Max_Queue_Length aspect or pragma default to it. if not Has_Max_Queue_Length (Id) or else not Present (Prag) then return Uint_0; |