diff options
| author | Bob Duff <duff@adacore.com> | 2023-03-29 14:11:29 -0400 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-05-26 09:29:19 +0200 |
| commit | 19668be0f8673a3545b0ad823fe1dd459f2f6772 (patch) | |
| tree | 8bec9a22b27da1a152e3a7330c30be8ab1a89203 /gcc | |
| parent | 18a72d68c9daf72a5690be652fd1b0eb217035a2 (diff) | |
| download | gcc-19668be0f8673a3545b0ad823fe1dd459f2f6772.zip gcc-19668be0f8673a3545b0ad823fe1dd459f2f6772.tar.gz gcc-19668be0f8673a3545b0ad823fe1dd459f2f6772.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/contracts.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/einfo.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_attr.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_ch5.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/lib-xref.adb | 2 |
6 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/contracts.adb b/gcc/ada/contracts.adb index e2df8b9..d3ceaa9 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 ef5201a..39efb93 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 7235a16..6b498eb 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 b4d9311..30af98b 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 b240814..50d66e3 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 b45c601..3d6b298 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. |