From da16002615ce7908f1599313dddc2e72702fcba9 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Tue, 20 Oct 2015 12:14:27 +0000 Subject: sem_prag.adb: Minor reformatting. 2015-10-20 Gary Dismukes * sem_prag.adb: Minor reformatting. From-SVN: r229061 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sem_prag.adb | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 5584a44..9830861 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2015-10-20 Gary Dismukes + + * sem_prag.adb: Minor reformatting. + 2015-10-20 Tristan Gingold * sem_util.adb (Is_Protected_Self_Reference): Remove reference to diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index bb64634..be5c37b 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -25087,7 +25087,7 @@ package body Sem_Prag is Typ : constant Entity_Id := Find_Dispatching_Type (Subp); function Replace_Formal (N : Node_Id) return Traverse_Result; - -- Replace an occurence of a formal parameter of the original expression + -- Replace occurrence of a formal parameter of the original expression -- in the precondition, with the formal of the generic function created -- for it. @@ -25116,7 +25116,7 @@ package body Sem_Prag is -- If this is a controlling formal, in the generic it -- becomes a conversion to the controlling formal of the - -- operation with the classwide precondition. If the formal + -- operation with the class-wide precondition. If the formal -- is an access parameter, a reference to F becomes -- Root (New_F.all)'access. @@ -25137,7 +25137,7 @@ package body Sem_Prag is (Etype (F), New_Occurrence_Of (New_F, Sloc (N)))); end if; - -- Non-controlling formals retain their original type + -- Noncontrolling formals retain their original type else Rewrite (N, New_Occurrence_Of (New_F, Sloc (N))); -- cgit v1.1