From: Bob Duff <duff@adacore.com>
Date: Wed, 29 Mar 2023 18:11:29 +0000 (-0400)
Subject: ada: Fix typos "statment" and "condtion"
X-Git-Tag: basepoints/gcc-15~8847
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=19668be0f8673a3545b0ad823fe1dd459f2f6772;p=thirdparty%2Fgcc.git

ada: Fix typos "statment" and "condtion"

...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.
---

diff --git a/gcc/ada/contracts.adb b/gcc/ada/contracts.adb
index e2df8b96a652..d3ceaa92e108 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 ef5201a68ff8..39efb932f907 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 7235a164e0a7..6b498eb2d772 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 b4d931195d89..30af98b3fc03 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 b2408140bef3..50d66e34ff71 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 b45c601f865e..3d6b29862b30 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.