From: Gary Dismukes Date: Fri, 6 Jan 2017 10:40:04 +0000 (+0000) Subject: sem_prag.adb, [...]: Minor typo fixes. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ea1135b83e3c021e45af01ed4cdc5149cd676933;p=gcc.git sem_prag.adb, [...]: Minor typo fixes. 2017-01-06 Gary Dismukes * sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes. From-SVN: r244127 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index beabccb874e..74082655728 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2017-01-06 Gary Dismukes + + * sem_prag.adb, rtsfind.adb, sem_util.adb: Minor typo fixes. + 2017-01-06 Tristan Gingold * ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All. diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index db0d9d31bdf..d6e76cfbe28 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 f2002caeb22..9b773269ee8 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 e02e7325e95..6055e82d4ed 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;