diff options
author | Gary Dismukes <dismukes@adacore.com> | 2015-10-20 12:14:27 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-10-20 14:14:27 +0200 |
commit | da16002615ce7908f1599313dddc2e72702fcba9 (patch) | |
tree | afc36054ca1f6109fa2e01d5c682f7b85ceaf2bc /gcc/ada | |
parent | a015ef67374d81c9468dfa5ca031ef0f8b394314 (diff) | |
download | gcc-da16002615ce7908f1599313dddc2e72702fcba9.zip gcc-da16002615ce7908f1599313dddc2e72702fcba9.tar.gz gcc-da16002615ce7908f1599313dddc2e72702fcba9.tar.bz2 |
sem_prag.adb: Minor reformatting.
2015-10-20 Gary Dismukes <dismukes@adacore.com>
* sem_prag.adb: Minor reformatting.
From-SVN: r229061
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/ada/sem_prag.adb | 6 |
2 files changed, 7 insertions, 3 deletions
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 <dismukes@adacore.com> + + * sem_prag.adb: Minor reformatting. + 2015-10-20 Tristan Gingold <gingold@adacore.com> * 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))); |