From: Bob Duff <d...@adacore.com>
...caused by moving code here from Atree.
gcc/ada/
* einfo.ads: Add comma.
* contracts.adb: Fix typos.
* exp_attr.adb: Likewise.
* exp_ch5.adb: Likewise.
* exp_ch6.adb: Likewise.
* lib-xref.adb: Likewise.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/contracts.adb | 4 ++--
gcc/ada/einfo.ads | 2 +-
gcc/ada/exp_attr.adb | 2 +-
gcc/ada/exp_ch5.adb | 2 +-
gcc/ada/exp_ch6.adb | 2 +-
gcc/ada/lib-xref.adb | 2 +-
6 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/gcc/ada/contracts.adb b/gcc/ada/contracts.adb
index e2df8b96a65..d3ceaa92e10 100644
--- a/gcc/ada/contracts.adb
+++ b/gcc/ada/contracts.adb
@@ -1640,7 +1640,7 @@ package body Contracts is
-- return
-- Result_Obj : constant Typ := _Wrapped_Statements
-- do
- -- <postconditions statments>
+ -- <postconditions statements>
-- end return;
-- end;
@@ -1658,7 +1658,7 @@ package body Contracts is
--
-- begin
-- _Wrapped_Statements;
- -- <postconditions statments>
+ -- <postconditions statements>
-- end;
-- Create Identifier
diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index ef5201a68ff..39efb932f90 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -4762,7 +4762,7 @@ package Einfo is
-- Wrapped_Statements
-- Defined in functions, procedures, entries, and entry families. Refers
--- to the entity of the _Wrapped_Statements procedure which gets
+-- to the entity of the _Wrapped_Statements procedure, which gets
-- generated as part of the expansion of contracts and postconditions
-- and contains its enclosing subprogram's original source declarations
-- and statements.
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb
index 7235a164e0a..6b498eb2d77 100644
--- a/gcc/ada/exp_attr.adb
+++ b/gcc/ada/exp_attr.adb
@@ -5051,7 +5051,7 @@ package body Exp_Attr is
if Present (Subp) then
Ins_Nod := Subp;
- -- General case where the postcondtion checks occur after the call
+ -- General case where the postcondition checks occur after the call
-- to _Wrapped_Statements.
else
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index b4d931195d8..30af98b3fc0 100644
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -3972,7 +3972,7 @@ package body Exp_Ch5 is
Declarations : constant List_Id := New_List (Selector_Decl);
- -- Start of processing for Expand_General_Case_Statment
+ -- Start of processing for Expand_General_Case_Statement
begin
if Present (Choice_Index_Decl) then
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index b2408140bef..50d66e34ff7 100644
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -3090,7 +3090,7 @@ package body Exp_Ch6 is
-- Start of processing for Insert_Level_Assign
begin
- -- Examine further nested condtionals
+ -- Examine further nested conditionals
pragma Assert (Nkind (Branch) =
N_Expression_With_Actions);
diff --git a/gcc/ada/lib-xref.adb b/gcc/ada/lib-xref.adb
index b45c601f865..3d6b29862b3 100644
--- a/gcc/ada/lib-xref.adb
+++ b/gcc/ada/lib-xref.adb
@@ -706,7 +706,7 @@ package body Lib.Xref is
Set_Referenced (E);
-- For the case where the entity is on the left hand side of an
- -- assignment statment, we do nothing here.
+ -- assignment statement, we do nothing here.
-- The processing for Analyze_Assignment_Statement will set the
-- Referenced_As_LHS flag.
--
2.40.0
