]> git.ipfire.org Git - thirdparty/gcc.git/commit
[Ada] Assertion_Policy (Ignore) ignores invariants
authorpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 10 Oct 2019 15:23:33 +0000 (15:23 +0000)
committerpmderodat <pmderodat@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 10 Oct 2019 15:23:33 +0000 (15:23 +0000)
commitebd3b39f94a1315be1ba9b4d5857473bf8665b97
tree10ee39e225039967caa8681796419e1f5bcfb49c
parent6c4791c0b052794028b1b57c1ea493725f960fc5
[Ada] Assertion_Policy (Ignore) ignores invariants

2019-10-10  Bob Duff  <duff@adacore.com>

gcc/ada/

* einfo.ads, einfo.adb (Invariants_Ignored): New flag on types.
This leaves just one unused flag.
* sem_prag.adb (Invariant): Set the flag if appropriate.
* exp_util.adb (Make_Invariant_Call): Check the flag.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@276818 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/einfo.adb
gcc/ada/einfo.ads
gcc/ada/exp_util.adb
gcc/ada/sem_prag.adb