diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:42:39 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-06 12:42:39 +0100 |
| commit | 0789ef6f84d73facdf01b056748e7b43abf3ed17 (patch) | |
| tree | 956b02a68f0175c0a06e8851cdca84bef1f12fcc /gcc/ada/sinfo.ads | |
| parent | ffa168bc9814e3b082a09ffe2147b62741b06e4a (diff) | |
| download | gcc-0789ef6f84d73facdf01b056748e7b43abf3ed17.zip gcc-0789ef6f84d73facdf01b056748e7b43abf3ed17.tar.gz gcc-0789ef6f84d73facdf01b056748e7b43abf3ed17.tar.bz2 | |
[multiple changes]
2017-01-06 Bob Duff <duff@adacore.com>
* sinfo.ads, sinfo.adb (Map_Pragma_Name): Preparation work,
dummy implementation of Map_Pragma_Name.
2017-01-06 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb (Expand_N_Protected_Type_Declaration): Make the
entry_body variable constant.
* s-taprob.ads (Entry_Body_Access): Move to s-tposen.
* s-tpoben.ads (Protected_Entry_Body_Access): Now access
to constant.
* s-tposen.ads (Entry_Body_Access): Moved from s-taprob,
now access to constant.
From-SVN: r244141
Diffstat (limited to 'gcc/ada/sinfo.ads')
| -rw-r--r-- | gcc/ada/sinfo.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/sinfo.ads b/gcc/ada/sinfo.ads index 79b56a1..4a01505 100644 --- a/gcc/ada/sinfo.ads +++ b/gcc/ada/sinfo.ads @@ -11010,6 +11010,10 @@ package Sinfo is pragma Inline (Pragma_Name); -- Convenient function to obtain Chars field of Pragma_Identifier + procedure Map_Pragma_Name (From, To : Name_Id); + -- Used in the implementation of pragma Rename_Pragma. Maps pragma name + -- From to pragma name To, we From can be used as a synonym for To. + function Pragma_Name_Mapped (N : Node_Id) return Name_Id; -- ????Work in progress. |