diff options
| author | Bob Duff <duff@adacore.com> | 2017-01-12 13:18:47 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-12 14:18:47 +0100 |
| commit | 6e759c2a0f950ce535e7907db39ddc3866782ade (patch) | |
| tree | 34bbc627f9d596a221f332486cdfee42a77f8d6b /gcc/ada/sinfo.ads | |
| parent | 6bb4ea5cdf9664f2cec861a2a120192b4ac04d1f (diff) | |
| download | gcc-6e759c2a0f950ce535e7907db39ddc3866782ade.zip gcc-6e759c2a0f950ce535e7907db39ddc3866782ade.tar.gz gcc-6e759c2a0f950ce535e7907db39ddc3866782ade.tar.bz2 | |
contracts.adb, [...] (Pragma_Name): Change name to Pragma_Name_Unmapped.
2017-01-12 Bob Duff <duff@adacore.com>
* contracts.adb, einfo.adb, errout.adb, exp_attr.adb,
exp_ch3.adb, exp_ch7.adb, exp_ch9.adb, exp_prag.adb, freeze.adb,
frontend.adb, ghost.adb, inline.adb, lib-writ.adb, lib-xref.adb,
par.adb, par-ch10.adb, par-ch2.adb, par-prag.adb, par_sco.adb,
sem_attr.adb, sem_aux.adb, sem_ch10.adb, sem_ch12.adb,
sem_ch13.adb, sem_ch6.adb, sem_ch8.adb, sem_ch9.adb, sem_elab.adb,
sem_prag.adb, sem_res.adb, sem_util.adb, sem_util.ads,
sem_warn.adb, sinfo.adb, sinfo.ads, sprint.adb (Pragma_Name):
Change name to Pragma_Name_Unmapped.
(Pragma_Name_Mapped): Change name to Pragma_Name.
This is because the "mapped" version should be the usual case.
From-SVN: r244352
Diffstat (limited to 'gcc/ada/sinfo.ads')
| -rw-r--r-- | gcc/ada/sinfo.ads | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 125f197..a0bfd46 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -2534,8 +2534,8 @@ package Sinfo is -- Psect_Object is always converted to Common_Object, but there are -- undoubtedly many other similar notes required ??? - -- Note: a utility function Pragma_Name may be applied to pragma nodes - -- to conveniently obtain the Chars field of the Pragma_Identifier. + -- Note: utility functions Pragma_Name_Unmapped and Pragma_Name may be + -- applied to pragma nodes to obtain the Chars or its mapped version. -- Note: if From_Aspect_Specification is set, then Sloc points to the -- aspect name, as does the Pragma_Identifier. In this case if the @@ -11019,9 +11019,9 @@ package Sinfo is -- Utility Functions -- ----------------------- - function Pragma_Name (N : Node_Id) return Name_Id; - pragma Inline (Pragma_Name); - -- Convenient function to obtain Chars field of Pragma_Identifier + function Pragma_Name_Unmapped (N : Node_Id) return Name_Id; + -- Function to obtain Chars field of Pragma_Identifier. In most cases, you + -- want to call Pragma_Name instead. procedure Map_Pragma_Name (From, To : Name_Id); -- Used in the implementation of pragma Rename_Pragma. Maps pragma name @@ -11032,9 +11032,10 @@ package Sinfo is -- programs will use it at all, and those that do will use it approximately -- once or twice. - function Pragma_Name_Mapped (N : Node_Id) return Name_Id; - -- Same as Pragma_Name, except that if From has been mapped to To, and - -- Pragma_Name (N) = From, then this returns To. + function Pragma_Name (N : Node_Id) return Name_Id; + -- Same as Pragma_Name_Unmapped, except that if From has been mapped to To, + -- and Pragma_Name_Unmapped (N) = From, then this returns To. In other + -- words, this takes into account pragmas Rename_Pragma. ----------------------------- -- Syntactic Parent Tables -- |