git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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:
Gary Dismukes 2017-01-06 10:40:04 +00:00 committed by Arnaud Charlet
parent 442d1abbc4
commit ea1135b83e
4 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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> 2017-01-06 Tristan Gingold <gingold@adacore.com>
* ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All. * ada.ads, a-unccon.ads: Add pragma No_Elaboration_Code_All.

2
gcc/ada/rtsfind.adb
View File

@ -1351,7 +1351,7 @@ package body Rtsfind is
-- is System. If so, return the value from the already compiled -- is System. If so, return the value from the already compiled
-- declaration and otherwise do a regular find. -- 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. -- writing an Ada compiler in Ada have to be broken somewhere.
if Present (Main_Unit_Entity) if Present (Main_Unit_Entity)

4
gcc/ada/sem_prag.adb
View File

@ -17728,8 +17728,8 @@ package body Sem_Prag is
end if; end if;
-- Manually subsitute the expression value of the pragma argument -- Manually substitute the expression value of the pragma argument
-- if it not an integer literally because this is not taken care -- if it's not an integer literal because this is not taken care
-- of automatically elsewhere. -- of automatically elsewhere.
if Nkind (Arg) /= N_Integer_Literal then if Nkind (Arg) /= N_Integer_Literal then

4
gcc/ada/sem_util.adb
View File

@ -8359,8 +8359,8 @@ package body Sem_Util is
Prag : constant Entity_Id := Get_Pragma (Id, Pragma_Max_Queue_Length); Prag : constant Entity_Id := Get_Pragma (Id, Pragma_Max_Queue_Length);
begin begin
-- A value of 0 represents no maximum specified and entries and entry -- A value of 0 represents no maximum specified, and entries and entry
-- families with no Max_Queue_Length aspect or pragma defaults to it. -- 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 if not Has_Max_Queue_Length (Id) or else not Present (Prag) then
return Uint_0; return Uint_0;