From e5d163235117f137292f450a2d38b9695f6c6311 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Wed, 26 Sep 2018 09:15:48 +0000 Subject: [PATCH] [Ada] Fix miscellaneous typos 2018-09-26 Gary Dismukes gcc/ada/ * exp_ch9.adb, layout.adb, sem_attr.adb, sem_res.adb: Fix miscellaneous typos. From-SVN: r264599 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/exp_ch9.adb | 4 ++-- gcc/ada/layout.adb | 2 +- gcc/ada/sem_attr.adb | 4 ++-- gcc/ada/sem_res.adb | 2 +- 5 files changed, 11 insertions(+), 6 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 42391f62dd5..d5e4018a04a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-09-26 Gary Dismukes + + * exp_ch9.adb, layout.adb, sem_attr.adb, sem_res.adb: Fix + miscellaneous typos. + 2018-09-26 Jerome Lambourg * vxlink.adb: Kill a CodePeer warning. diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 4470c4e9854..a62ba2dea3b 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -481,7 +481,7 @@ package body Exp_Ch9 is -- to be E. Bod is either a block or a subprogram body. Used after -- expanding various kinds of entry bodies into their corresponding -- constructs. This is needed during unnesting to determine whether a - -- body geenrated for an entry or an accept alternative includes uplevel + -- body generated for an entry or an accept alternative includes uplevel -- references. function Trivial_Accept_OK return Boolean; @@ -14854,7 +14854,7 @@ package body Exp_Ch9 is function Reset_Scope (N : Node_Id) return Traverse_Result; -- Temporaries may have been declared during expansion of the procedure -- created for an entry body or an accept alternative. Indicate that - -- their scope is the new body, to unsure proper generation of uplevel + -- their scope is the new body, to ensure proper generation of uplevel -- references where needed during unnesting. procedure Reset_Scopes is new Traverse_Proc (Reset_Scope); diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb index a7b24ab43c8..91640c15f86 100644 --- a/gcc/ada/layout.adb +++ b/gcc/ada/layout.adb @@ -328,7 +328,7 @@ package body Layout is -- If unnesting subprograms, subprogram access types contain the -- address of both the subprogram and an activation record. But if we -- set that, we'll get a warning on different unchecked conversion - -- sizes in the RTS. So leave unset ub that case. + -- sizes in the RTS. So leave unset in that case. elsif Unnest_Subprogram_Mode and then Is_Access_Subprogram_Type (E) diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 96eb48824d1..715ec954552 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -11249,9 +11249,9 @@ package body Sem_Attr is -- The above sets the Scope of the flag entity to the -- current scope, in which the attribute appears, but -- the flag declaration has been inserted after that - -- of Subp_Id, so the scope of the flag the same as + -- of Subp_Id, so the scope of the flag is the same as -- that of Subp_Id. This is relevant when unnesting, - -- whereh processing depends on correct scope settingl + -- where processing depends on correct scope setting. Set_Scope (Flag_Id, Scop); end if; diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 2002b75876f..5354d81630b 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -6067,7 +6067,7 @@ package body Sem_Res is -- (including the body of another expression function) which would -- place the freeze node in the wrong scope. An expression function -- is frozen in the usual fashion, by the appearance of a real body, - -- or at the end of a declarative part. However an implcit call to + -- or at the end of a declarative part. However an implicit call to -- an expression function may appear when it is part of a default -- expression in a call to an initialiation procedure, and must be -- frozen now, even if the body is inserted at a later point. -- 2.30.2