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/par.adb | |
| parent | 6bb4ea5cdf9664f2cec861a2a120192b4ac04d1f (diff) | |
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/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index f720b69d457..9b5c9c532a8 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1481,10 +1481,12 @@ begin -- Give error if bad pragma - if not Is_Configuration_Pragma_Name (Pragma_Name (P_Node)) - and then Pragma_Name (P_Node) /= Name_Source_Reference + if not Is_Configuration_Pragma_Name + (Pragma_Name_Unmapped (P_Node)) + and then + Pragma_Name_Unmapped (P_Node) /= Name_Source_Reference then - if Is_Pragma_Name (Pragma_Name (P_Node)) then + if Is_Pragma_Name (Pragma_Name_Unmapped (P_Node)) then Error_Msg_N ("only configuration pragmas allowed " & "in configuration file", P_Node); |