OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Fix several typos

Browse Source 
2018-05-30  Gary Dismukes  <dismukes@adacore.com>

gcc/ada/

	* sem_res.adb, sem_util.adb: Fix several typos.

From-SVN: r260939
This commit is contained in:
Gary Dismukes 2018-05-30 08:57:55 +00:00 committed by Pierre-Marie de Rodat
parent 5e648d3021
commit 7cc6d416ae
3 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 @@
2018-05-30 Gary Dismukes <dismukes@adacore.com>
* sem_res.adb, sem_util.adb: Fix several typos.
2018-05-30 Olivier Hainque <hainque@adacore.com> 2018-05-30 Olivier Hainque <hainque@adacore.com>
* vx_crtbegin_attr.c (CTOR_ATTRIBUTE, DTOR_ATTRIBUTE): Empty. * vx_crtbegin_attr.c (CTOR_ATTRIBUTE, DTOR_ATTRIBUTE): Empty.

8
gcc/ada/sem_res.adb
View File

@ -10120,10 +10120,10 @@ package body Sem_Res is
-- The type of the context and that of the component are -- The type of the context and that of the component are
-- compatible and in general identical, but if they are anonymous -- compatible and in general identical, but if they are anonymous
-- access_to_subprogram types the relevwnt type is that of the -- access-to-subprogram types, the relevant type is that of the
-- component. Thid matters in Unnest_Subprograms mode, where the -- component. This matters in Unnest_Subprograms mode, where the
-- relevant context is the one in which the type is declared. not -- relevant context is the one in which the type is declared, not
-- the point of use. this determines what activation record to use. -- the point of use. This determines what activation record to use.
if Ekind (Typ) = E_Anonymous_Access_Subprogram_Type then if Ekind (Typ) = E_Anonymous_Access_Subprogram_Type then
Set_Etype (N, Etype (Comp1)); Set_Etype (N, Etype (Comp1));

2
gcc/ada/sem_util.adb
View File

@ -13162,7 +13162,7 @@ package body Sem_Util is
-- components. -- components.
function Is_Atomic_Prefix (Pref : Node_Id) return Boolean; function Is_Atomic_Prefix (Pref : Node_Id) return Boolean;
-- Determine whether prefix Pref of a indexed or selected component is -- Determine whether prefix Pref of an indexed or selected component is
-- an atomic object. -- an atomic object.
---------------------- ----------------------