diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-01-15 05:41:45 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-06 03:51:19 -0400 |
| commit | afab03da75f6b5e11087738d71aeb8c3efa40f1c (patch) | |
| tree | 25f2001818491f28f0a85c2aa359c6205e3aaaa9 | |
| parent | e1fcf14f33e4f371aae8ae497ca58a760d53ca6d (diff) | |
| download | gcc-afab03da75f6b5e11087738d71aeb8c3efa40f1c.zip gcc-afab03da75f6b5e11087738d71aeb8c3efa40f1c.tar.gz gcc-afab03da75f6b5e11087738d71aeb8c3efa40f1c.tar.bz2 | |
[Ada] Fix typos
gcc/ada/
* einfo.ads, exp_prag.adb, exp_util.adb: Fix typos.
| -rw-r--r-- | gcc/ada/einfo.ads | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_prag.adb | 2 | ||||
| -rw-r--r-- | 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 a88f1fd..dff9c45 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 53c937d..454b4c6 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 6c79163..2955fd7 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; |