exp_prag.adb (Expand_Pragma_Check): Check for Assert rather than Assertion.
authorRobert Dewar <dewar@adacore.com>
Tue, 23 Apr 2013 09:56:06 +0000 (09:56 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 23 Apr 2013 09:56:06 +0000 (11:56 +0200)
commit20a65dcba9a95dd40a8794324e833d5ff9f07544
tree52f36a03473183940fba9d55f750c77e3fe696b1
parent2e86f67917967e048d40e25579bf49414a85d8d9
exp_prag.adb (Expand_Pragma_Check): Check for Assert rather than Assertion.

2013-04-23  Robert Dewar  <dewar@adacore.com>

* exp_prag.adb (Expand_Pragma_Check): Check for Assert rather
than Assertion.
* sem_prag.adb (Is_Valid_Assertion_Kind): Moved to spec
(Effective_Name): New function (Analyze_Pragma, case Check):
Disallow [Statement_]Assertions (Check_Kind): Implement
Statement_Assertions (Check_Applicable_Policy): Use Effective_Name
(Is_Valid_Assertion_Kind): Allow Statement_Assertions.
* sem_prag.ads (Is_Valid_Assertion_Kind): Moved here from body
(Effective_Name): New function.
* sem_res.adb: Minor reformatting.
* snames.ads-tmpl (Name_Statement_Assertions): New entry.
* gnat_rm.texi: Add documentation of new assertion kind
Statement_Assertions.

From-SVN: r198187
gcc/ada/ChangeLog
gcc/ada/exp_prag.adb
gcc/ada/gnat_rm.texi
gcc/ada/sem_prag.adb
gcc/ada/sem_prag.ads
gcc/ada/sem_res.adb
gcc/ada/snames.ads-tmpl