From afab03da75f6b5e11087738d71aeb8c3efa40f1c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 15 Jan 2021 05:41:45 -0500 Subject: [PATCH] [Ada] Fix typos gcc/ada/ * einfo.ads, exp_prag.adb, exp_util.adb: Fix typos. --- gcc/ada/einfo.ads | 4 ++-- gcc/ada/exp_prag.adb | 2 +- gcc/ada/exp_util.adb | 3 ++- 3 files changed, 5 insertions(+), 4 deletions(-) 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; -- 2.47.2