diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-20 16:17:29 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-20 16:17:29 +0100 |
| commit | 36eef04a24a933d0198f415be0d4b77b88e782b9 (patch) | |
| tree | 47c815ef405b93812310837caa13cd6d1a24c66e /gcc/ada/a-cfhama.ads | |
| parent | 65441a1ec0101063a6f5869bce40ed3cfb051f51 (diff) | |
| download | gcc-36eef04a24a933d0198f415be0d4b77b88e782b9.zip gcc-36eef04a24a933d0198f415be0d4b77b88e782b9.tar.gz gcc-36eef04a24a933d0198f415be0d4b77b88e782b9.tar.bz2 | |
[multiple changes]
2014-01-20 Hristian Kirtchev <kirtchev@adacore.com>
* sem_attr.adb (Analyze_Attribute): Attributes 'Old and 'Result
can now apply to a refined postcondition.
* sem_ch6.adb (Analyze_Subprogram_Contract): Remove local
variable Result_Seen. Add variables Case_Prag, Post_Prag,
Seen_In_Case and Seen_In_Post. Update the mechanism that detects
whether postconditions and/or constract-cases mention attribute
'Result and introduce a post-state when applied to functions.
(Check_Result_And_Post_State): Removed.
* sem_prag.adb (Analyze_Pragma): Add local variable
Result_Seen. Verify that the expression of pragma Refined_Post
mentions attribute 'Result and introduces a post-state.
* sem_util.ads, sem_util.adb (Check_Result_And_Post_State): New routine.
2014-01-20 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Is_Subprogram_Call): New routine.
(Process_Transient_Objects): Make variable Must_Hook global with
respect to all locally declared subprograms. Search the context
for at least one subprogram call.
(Requires_Hooking): Removed.
2014-01-20 Claire Dross <dross@adacore.com>
* a-cfdlli.ads a-cfhama.ads a-cfhase.ads a-cforma.ads
* a-cforse.ads a-cofove.ads: Add pragma Annotate (GNATprove,
External_Axiomatization);
From-SVN: r206819
Diffstat (limited to 'gcc/ada/a-cfhama.ads')
| -rw-r--r-- | gcc/ada/a-cfhama.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/a-cfhama.ads b/gcc/ada/a-cfhama.ads index dbfcb82..5366655 100644 --- a/gcc/ada/a-cfhama.ads +++ b/gcc/ada/a-cfhama.ads @@ -64,6 +64,7 @@ generic with function "=" (Left, Right : Element_Type) return Boolean is <>; package Ada.Containers.Formal_Hashed_Maps is + pragma Annotate (GNATprove, External_Axiomatization); pragma Pure; type Map (Capacity : Count_Type; Modulus : Hash_Type) is private; |