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
This commit is contained in:
parent
442d1abbc4
commit
ea1135b83e
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue