diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:06:44 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 12:06:44 +0200 |
| commit | 39521a94f844f6c6462b4b7849e7f1e2780be6fa (patch) | |
| tree | ca4a53080ce020fa8abbb8fc3d5044f4955a0102 /gcc/ada/exp_util.adb | |
| parent | b98a872b2227a0a075cce2549db7bb415fe6e083 (diff) | |
| download | gcc-39521a94f844f6c6462b4b7849e7f1e2780be6fa.zip gcc-39521a94f844f6c6462b4b7849e7f1e2780be6fa.tar.gz gcc-39521a94f844f6c6462b4b7849e7f1e2780be6fa.tar.bz2 | |
[multiple changes]
2014-08-01 Yannick Moy <moy@adacore.com>
* inline.adb (Cannot_Inline): Issue info message instead of
warning for subprograms not inlined in GNATprove mode.
* sem_res.adb (Resolve_Call): Take body into account for deciding
whether subprogram can be inlined in GNATprove mode or not.
2014-08-01 Claire Dross <dross@adacore.com>
* exp_util.ads (Get_First_Parent_With_Ext_Axioms_For_Entity): Renaming
of Get_First_Parent_With_External_Axiomatization_For_Entity for
shorter.
* sem_ch12.adb (Analyze_Associations): Only call Build_Wrapper
for parameters of packages with external axiomatization.
From-SVN: r213443
Diffstat (limited to 'gcc/ada/exp_util.adb')
| -rw-r--r-- | gcc/ada/exp_util.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/exp_util.adb b/gcc/ada/exp_util.adb index a91380f..235951eb 100644 --- a/gcc/ada/exp_util.adb +++ b/gcc/ada/exp_util.adb @@ -3228,11 +3228,11 @@ package body Exp_Util is end; end Get_Current_Value_Condition; - -------------------------------------------------------------- - -- Get_First_Parent_With_External_Axiomatization_For_Entity -- - -------------------------------------------------------------- + ------------------------------------------------- + -- Get_First_Parent_With_Ext_Axioms_For_Entity -- + ------------------------------------------------- - function Get_First_Parent_With_External_Axiomatization_For_Entity + function Get_First_Parent_With_Ext_Axioms_For_Entity (E : Entity_Id) return Entity_Id is Decl : Node_Id; @@ -3259,13 +3259,13 @@ package body Exp_Util is elsif Ekind (E) = E_Package and then Present (Generic_Parent (Decl)) then - return Get_First_Parent_With_External_Axiomatization_For_Entity + return Get_First_Parent_With_Ext_Axioms_For_Entity (Generic_Parent (Decl)); -- Otherwise, look at E's scope instead if present elsif Present (Scope (E)) then - return Get_First_Parent_With_External_Axiomatization_For_Entity + return Get_First_Parent_With_Ext_Axioms_For_Entity (Scope (E)); -- Else there is no such axiomatized package @@ -3273,7 +3273,7 @@ package body Exp_Util is else return Empty; end if; - end Get_First_Parent_With_External_Axiomatization_For_Entity; + end Get_First_Parent_With_Ext_Axioms_For_Entity; --------------------- -- Get_Stream_Size -- |