einfo.adb (Get_Pragma): Handle the retrieval of delayed pragmas stored in N_Contract...
authorHristian Kirtchev <kirtchev@adacore.com>
Mon, 8 Jul 2013 08:19:20 +0000 (08:19 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 8 Jul 2013 08:19:20 +0000 (10:19 +0200)
commit78d432da45406aaeb97b7485f548d07fc3ca7049
tree7c0c51ec75e08539b1ae46df7140c5e3b9e335b0
parent5884c232046e65f6b617ee69f34b4c90a31b68eb
einfo.adb (Get_Pragma): Handle the retrieval of delayed pragmas stored in N_Contract nodes.

2013-07-08  Hristian Kirtchev  <kirtchev@adacore.com>

* einfo.adb (Get_Pragma): Handle the retrieval of delayed
pragmas stored in N_Contract nodes.
* einfo.ads (Get_Pragma): Update the comment on usage.
* sem_prag.adb (Check_Precondition_Postcondition): Retain a copy
of the pragma when it applies to a body that acts as a spec. The
copy is preanalyzed and chained on the contract of the body.

From-SVN: r200774
gcc/ada/ChangeLog
gcc/ada/einfo.adb
gcc/ada/einfo.ads
gcc/ada/sem_prag.adb