[Ada] Handle pragmas that come from aspects for GNATprove
commitb7e875ce96282a9c4ecc6cfd4f043c1039e5b7e3
authorPiotr Trojanek <trojanek@adacore.com>
Tue, 21 Aug 2018 14:44:30 +0000 (21 14:44 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Tue, 21 Aug 2018 14:44:30 +0000 (21 14:44 +0000)
treea9dfcb7a1ec4ecb3fe41a5b2e8d84f2d56024cef
parentd40800cfe589cf55e074ed151c7a607d5680997a
[Ada] Handle pragmas that come from aspects for GNATprove

In GNATprove we appear to abuse a routine related to cross-references and
expect it to deliver exact results, which is not what it was designed for.

This patch is a temporary solution to avoid crashes in GNATprove; it doesn't
affect the frontend or other backends, because this code is used exclusively
by GNATprove (it is located in the frontend for technical reasons). No tests
provided.

2018-08-21  Piotr Trojanek  <trojanek@adacore.com>

gcc/ada/

* lib-xref.ads, lib-xref-spark_specific.adb
(Enclosing_Subprogram_Or_Library_Package): Now roughtly works
for pragmas that come from aspect specifications.

From-SVN: r263707
gcc/ada/ChangeLog
gcc/ada/lib-xref-spark_specific.adb
gcc/ada/lib-xref.ads