[Ada] Make pragma Inspection_Point work for constants
authorEric Botcazou <ebotcazou@adacore.com>
Sat, 18 Dec 2021 21:36:40 +0000 (22:36 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 10 Jan 2022 09:38:46 +0000 (09:38 +0000)
commit0c6fbbfc83a8faefb74232cbb29fa1f79348b3e5
treebdb381f46e17c444ffdd96cac5989847a7f727e8
parenta6eae6a9bbf83ada3aab7f5a2a74e7024889d237
[Ada] Make pragma Inspection_Point work for constants

gcc/ada/

* gcc-interface/trans.c (lvalue_required_p) <N_Pragma>: New case.
<N_Pragma_Argument_Association>: Likewise.
(Pragma_to_gnu) <Pragma_Inspection_Point>: Fetch the corresponding
variable of a constant before marking it as addressable.
gcc/ada/gcc-interface/trans.c