diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-12 13:18:47 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2017-01-12 13:18:47 +0000 |
| commit | ddccc924cea81e4a3cc0ceac9bc04bf65815598c (patch) | |
| tree | 34bbc627f9d596a221f332486cdfee42a77f8d6b /gcc/ada/sinfo.adb | |
| parent | 2b11c996a85f40db03d87d2aa7de481154fd4da5 (diff) | |
| download | gcc-ddccc924cea81e4a3cc0ceac9bc04bf65815598c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@244352 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index fd486ddd899..2d6e1af64d7 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -6829,10 +6829,10 @@ package body Sinfo is -- Pragma_Name -- ----------------- - function Pragma_Name (N : Node_Id) return Name_Id is + function Pragma_Name_Unmapped (N : Node_Id) return Name_Id is begin return Chars (Pragma_Identifier (N)); - end Pragma_Name; + end Pragma_Name_Unmapped; --------------------- -- Map_Pragma_Name -- @@ -6862,12 +6862,12 @@ package body Sinfo is Pragma_Map (Last_Pair) := (Key => From, Value => To); end Map_Pragma_Name; - ------------------------ - -- Pragma_Name_Mapped -- - ------------------------ + ----------------- + -- Pragma_Name -- + ----------------- - function Pragma_Name_Mapped (N : Node_Id) return Name_Id is - Result : constant Name_Id := Pragma_Name (N); + function Pragma_Name (N : Node_Id) return Name_Id is + Result : constant Name_Id := Pragma_Name_Unmapped (N); begin for J in Pragma_Map'Range loop if Result = Pragma_Map (J).Key then @@ -6876,6 +6876,6 @@ package body Sinfo is end loop; return Result; - end Pragma_Name_Mapped; + end Pragma_Name; end Sinfo; |