diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-24 09:22:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-11-24 09:22:24 +0000 |
| commit | a36d34e4cd0b366a46b5a6056ed03ebfa38e484c (patch) | |
| tree | 91519daaa4d7213a5ea90cd1cd936d2ca8598580 /gcc/ada/sem_prag.adb | |
| parent | a37605cec4ee7677300844aca846a5e5ff8ac4e2 (diff) | |
| download | gcc-a36d34e4cd0b366a46b5a6056ed03ebfa38e484c.tar.gz | |
2015-11-24 Gary Dismukes <dismukes@adacore.com>
* sem_ch3.adb, sem_type.adb, sem_ch7.adb, sem_ch9.adb, checks.adb,
sem_prag.adb, contracts.adb, g-strhas.ads, sem_ch6.adb: Minor
reformatting, rewording, and typo corrections.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@230794 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_prag.adb')
| -rw-r--r-- | gcc/ada/sem_prag.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 5ad3a555ced..3c8b6a5fb2a 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -358,7 +358,7 @@ package body Sem_Prag is Others_Seen : Boolean := False; -- This flag is set when an "others" choice is encountered. It is used - -- to detect multiple illegal occurences of "others". + -- to detect multiple illegal occurrences of "others". procedure Analyze_Contract_Case (CCase : Node_Id); -- Verify the legality of a single contract case @@ -411,7 +411,7 @@ package body Sem_Prag is Preanalyze_Assert_Expression (Case_Guard, Standard_Boolean); -- Emit a clarification message when the case guard contains - -- at leat one undefined reference, possibly due to contract + -- at least one undefined reference, possibly due to contract -- "freezing". if Errors /= Serious_Errors_Detected @@ -426,7 +426,7 @@ package body Sem_Prag is Preanalyze_Assert_Expression (Conseq, Standard_Boolean); -- Emit a clarification message when the consequence contains - -- at leat one undefined reference, possibly due to contract + -- at least one undefined reference, possibly due to contract -- "freezing". if Errors /= Serious_Errors_Detected @@ -23230,8 +23230,8 @@ package body Sem_Prag is Errors := Serious_Errors_Detected; Preanalyze_Assert_Expression (Expr, Standard_Boolean); - -- Emit a clarification message when the expression contains at leat one - -- undefined reference, possibly due to contract "freezing". + -- Emit a clarification message when the expression contains at least + -- one undefined reference, possibly due to contract "freezing". if Errors /= Serious_Errors_Detected and then Present (Freeze_Id) @@ -26712,7 +26712,7 @@ package body Sem_Prag is begin Global_Seen := False; - -- Process all formal parameters of entries, [generic] subprograms and + -- Process all formal parameters of entries, [generic] subprograms, and -- their bodies. if Ekind_In (Subp_Id, E_Entry, @@ -26744,7 +26744,7 @@ package body Sem_Prag is Append_New_Elmt (Formal, Subp_Outputs); -- Out parameters can act as inputs when the related type is - -- tagged, unconstrained array, unconstrained record or record + -- tagged, unconstrained array, unconstrained record, or record -- with unconstrained components. if Ekind (Formal) = E_Out_Parameter |