Commit ea1135b8 by Gary Dismukes Committed by Arnaud Charlet

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
parent 442d1abb
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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment