diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2018-11-14 11:40:14 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-11-14 11:40:14 +0000 |
| commit | ae93ccb2af09fa4158a3bb531aecbd58cacdfa6c (patch) | |
| tree | 7a318413b31b806845d22a1265c3719984fc09c9 | |
| parent | fb620f0e8dfb4edfc153e7ecca7ad30989812da8 (diff) | |
| download | gcc-ae93ccb2af09fa4158a3bb531aecbd58cacdfa6c.zip gcc-ae93ccb2af09fa4158a3bb531aecbd58cacdfa6c.tar.gz gcc-ae93ccb2af09fa4158a3bb531aecbd58cacdfa6c.tar.bz2 | |
[Ada] Fix parentheses in comments and "library-level" punctuation
When acting as an adjective, it is "library-level something"; when
acting as a noun, it is "something at the library level".
2018-11-14 Piotr Trojanek <trojanek@adacore.com>
gcc/ada/
* exp_dbug.ads, sem_util.ads: Minor fixes in comments.
From-SVN: r266109
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/exp_dbug.ads | 6 | ||||
| -rw-r--r-- | gcc/ada/sem_util.ads | 2 |
3 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f6e996e..d760f80 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-11-14 Piotr Trojanek <trojanek@adacore.com> + + * exp_dbug.ads, sem_util.ads: Minor fixes in comments. + 2018-11-14 Arnaud Charlet <charlet@adacore.com> * adabkend.adb (Scan_Back_End_Switches): Handle -gx switches diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads index 503f72a..a4deebe 100644 --- a/gcc/ada/exp_dbug.ads +++ b/gcc/ada/exp_dbug.ads @@ -65,7 +65,7 @@ package Exp_Dbug is -- For global entities, the encoded name includes all components of the -- fully expanded name (but omitting Standard at the start). For example, - -- if a library level child package P.Q has an embedded package R, and + -- if a library-level child package P.Q has an embedded package R, and -- there is an entity in this embedded package whose name is S, the encoded -- name will include the components p.q.r.s. @@ -291,7 +291,7 @@ package Exp_Dbug is -- #6. x__y__m3 (no BNPE's in signt) -- #7. x__y__j (no BNPE's in sight) -- #8. k__z (no BNPE's, only up to procedure) - -- #9 _ada_x__m3 (library level subprogram) + -- #9 _ada_x__m3 (library-level subprogram) -- Note that we have instances here of both kind of potential name -- clashes, and the above examples show how the encodings avoid the @@ -479,7 +479,7 @@ package Exp_Dbug is -- the changes till just before gigi is called, we avoid any concerns -- about such effects. Gigi itself does not use the names except for -- output of names for debugging purposes (which is why we are doing - -- the name changes in the first place. + -- the name changes in the first place). -- Note: the routines Get_Unqualified_[Decoded]_Name_String in Namet are -- useful to remove qualification from a name qualified by the call to diff --git a/gcc/ada/sem_util.ads b/gcc/ada/sem_util.ads index 74d670d..10549bb 100644 --- a/gcc/ada/sem_util.ads +++ b/gcc/ada/sem_util.ads @@ -1006,7 +1006,7 @@ package Sem_Util is function Get_Default_External_Name (E : Node_Or_Entity_Id) return Node_Id; -- This is used to construct the string literal node representing a -- default external name, i.e. one that is constructed from the name of an - -- entity, or (in the case of extended DEC import/export pragmas, an + -- entity, or (in the case of extended DEC import/export pragmas) an -- identifier provided as the external name. Letters in the name are -- according to the setting of Opt.External_Name_Default_Casing. |