diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:25:31 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:25:31 +0100 |
| commit | ffa168bc9814e3b082a09ffe2147b62741b06e4a (patch) | |
| tree | 39a43f05dbf4500cbd792f561b94826dc8822537 /gcc/ada/sinfo.adb | |
| parent | 9ca67d3f24e7386cf89c2ce2095677cd0e4c87de (diff) | |
| download | gcc-ffa168bc9814e3b082a09ffe2147b62741b06e4a.zip gcc-ffa168bc9814e3b082a09ffe2147b62741b06e4a.tar.gz gcc-ffa168bc9814e3b082a09ffe2147b62741b06e4a.tar.bz2 | |
[multiple changes]
2017-01-06 Gary Dismukes <dismukes@adacore.com>
* einfo.ads, sem_res.adb, sem_attr.adb, sem_ch6.adb: Minor
reformatting and typo fixes.
2017-01-06 Bob Duff <duff@adacore.com>
* snames.ads-tmpl: New names for pragma renaming.
* snames.adb-tmpl (Is_Configuration_Pragma_Name): Minor cleanup.
* par-prag.adb: Add new pragma name to case statement.
* sem_prag.adb (Rename_Pragma): Initial cut at semantic analysis
of the pragma.
* sinfo.ads, sinfo.adb (Pragma_Name_Mapped): Preparation work,
Dummy implementation of Pragma_Name_Mapped.
From-SVN: r244140
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index 9738101..c4e97a6 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -6818,4 +6818,13 @@ package body Sinfo is return Chars (Pragma_Identifier (N)); end Pragma_Name; + ------------------------ + -- Pragma_Name_Mapped -- + ------------------------ + + function Pragma_Name_Mapped (N : Node_Id) return Name_Id is + begin + return Pragma_Name (N); + end Pragma_Name_Mapped; + end Sinfo; |