diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-21 10:30:24 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-21 10:30:24 +0000 |
| commit | f54f1dff2ff9c50f6403ff7d603db4dca4d8caa0 (patch) | |
| tree | 82e1e9c9a50526d9512c41952beb3d596c952bb7 /gcc/ada/exp_util.adb | |
| parent | b3f5eb3697c6ef2083fcbc4df8ff6b0e49e2a435 (diff) | |
| download | gcc-f54f1dff2ff9c50f6403ff7d603db4dca4d8caa0.tar.gz | |
2010-10-21 Robert Dewar <dewar@adacore.com>
* einfo.ads, einfo.adb: Add handling of predicates.
Rework handling of invariants.
* exp_ch3.adb, exp_ch4.adb, exp_util.adb, sem_ch6.adb: Minor changes to
handing of invariants.
* par-prag.adb: Add dummy entry for pragma Predicate
* sem_ch13.adb (Analyze_Aspect_Specifications): Add processing for
Predicate aspects.
* sem_prag.adb: Add implementation of pragma Predicate.
* snames.ads-tmpl: Add entries for pragma Predicate.
2010-10-21 Robert Dewar <dewar@adacore.com>
* elists.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165763 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index e919bd6d487..0caf92dc99b 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -3998,6 +3998,9 @@ package body Exp_Util is Typ : constant Entity_Id := Etype (Expr); begin + pragma Assert + (Has_Invariants (Typ) and then Present (Invariant_Procedure (Typ))); + if Check_Enabled (Name_Invariant) or else Check_Enabled (Name_Assertion) |