[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 a88f1fd2d875768acc39b84c5ed31dbc8ab52267..dff9c45f6a6553fa7f72afe488c1eeddad493282 100644 (file)
--- 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 53c937db3b1264233a8eaf2d67e75595f9ebaeef..454b4c6cc582d64b9ae6c3f9b3a9b0b423c20298 100644 (file)
--- 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 6c791639894514d735dc50810be54f1dc195e14c..2955fd7f498656cca9ea803ad44b5704a490a434 100644 (file)
--- 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;