diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 12:14:27 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-20 12:14:27 +0000 |
commit | f44180878d7784ed4d08a6846616f580f1d765ee (patch) | |
tree | afc36054ca1f6109fa2e01d5c682f7b85ceaf2bc | |
parent | 5921a31bc9345a5d5193e31bae896058681d07f7 (diff) | |
download | gcc-f44180878d7784ed4d08a6846616f580f1d765ee.tar.gz |
2015-10-20 Gary Dismukes <dismukes@adacore.com>
* sem_prag.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229061 138bc75d-0d04-0410-961f-82ee72b054a4
-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 5584a44eeef..9830861868e 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 bb64634c2ad..be5c37ba85e 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))); |