[COMMITTED] ada: Fix typos "statment" and "condtion"
Checks
Context |
Check |
Description |
snail/gcc-patch-check |
success
|
Github commit url
|
Commit Message
From: Bob Duff <duff@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(-)
@@ -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
@@ -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
-- generated as part of the expansion of contracts and postconditions
-- and contains its enclosing subprogram's original source declarations
-- and statements.
@@ -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
@@ -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
@@ -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);
@@ -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.