From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 15 Jan 2021 10:41:45 +0000 (-0500)
Subject: [Ada] Fix typos
X-Git-Tag: basepoints/gcc-13~7785
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=afab03da75f6b5e11087738d71aeb8c3efa40f1c;p=thirdparty%2Fgcc.git

[Ada] Fix typos

gcc/ada/

	* einfo.ads, exp_prag.adb, exp_util.adb: Fix typos.
---

diff --git a/gcc/ada/einfo.ads b/gcc/ada/einfo.ads
index a88f1fd2d875..dff9c45f6a65 100644
--- a/gcc/ada/einfo.ads
+++ b/gcc/ada/einfo.ads
@@ -2259,8 +2259,8 @@ package Einfo is
 
 --    Initialization_Statements (Node28)
 --       Defined in constants and variables. For a composite object initialized
---       initialized with an aggregate that has been converted to a sequence
---       of assignments, points to a block statement containing the
+--       with an aggregate that has been converted to a sequence of
+--       assignments, points to a compound statement containing the
 --       assignments.
 
 --    Inner_Instances (Elist23)
diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb
index 53c937db3b12..454b4c6cc582 100644
--- a/gcc/ada/exp_prag.adb
+++ b/gcc/ada/exp_prag.adb
@@ -3139,7 +3139,7 @@ package body Exp_Prag is
    begin
       --  When applied to a variable, the default initialization must not be
       --  done. As it is already done when the pragma is found, we just get rid
-      --  of the call the initialization procedure which followed the object
+      --  of the call to the initialization procedure which followed the object
       --  declaration. The call is inserted after the declaration, but validity
       --  checks may also have been inserted and thus the initialization call
       --  does not necessarily appear immediately after the object declaration.
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb
index 6c7916398945..2955fd7f4986 100644
--- a/gcc/ada/exp_util.adb
+++ b/gcc/ada/exp_util.adb
@@ -11329,7 +11329,7 @@ package body Exp_Util is
 
       Init_Call : Node_Id;
 
-   --  Start of processing for Find_Init_Call
+   --  Start of processing for Remove_Init_Call
 
    begin
       if Present (Initialization_Statements (Var)) then
@@ -11383,6 +11383,7 @@ package body Exp_Util is
       if Present (Init_Call) then
          Remove (Init_Call);
       end if;
+
       return Init_Call;
    end Remove_Init_Call;