diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 11:11:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-04-20 11:11:42 +0200 |
| commit | 1ba563f5f9ba42ccbb36f4201bcbbe0c807ae26e (patch) | |
| tree | 918f75eaaa0499d130d89f924914044fdb189136 /gcc/ada/sinfo.adb | |
| parent | e361e9a1dbb5b357207de2b6459b8f69f96420da (diff) | |
| download | gcc-1ba563f5f9ba42ccbb36f4201bcbbe0c807ae26e.zip gcc-1ba563f5f9ba42ccbb36f4201bcbbe0c807ae26e.tar.gz gcc-1ba563f5f9ba42ccbb36f4201bcbbe0c807ae26e.tar.bz2 | |
[multiple changes]
2016-04-20 Javier Miranda <miranda@adacore.com>
* contracts.adb (Build_Postconditions_Procedure): Force its
inlining when generating C code.
* sem_attr.adb (Analyze_Attribute_Old_Result): Handle inlined
_postconditions when generating C code.
* exp_ch6.adb (Inlined_Subprogram): Inline calls to
_postconditions when generating C code.
* sinfo.ads, sinfo.adb (Corresponding_Spec, Set_Corresponding_Spec):
types of return value and argument changed from Node_Id to
Entity_Id.
2016-04-20 Vincent Celier <celier@adacore.com>
* make.adb, clean.adb, gnatname.adb: Revert previous change for now.
2016-04-20 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch12.adb (Analyze_Instance_And_Renamings): Do not reset
the Has_Delayed_Freeze flag on the anonymous instance node.
From-SVN: r235243
Diffstat (limited to 'gcc/ada/sinfo.adb')
| -rw-r--r-- | gcc/ada/sinfo.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sinfo.adb b/gcc/ada/sinfo.adb index b97fa58..3ea7a6a 100644 --- a/gcc/ada/sinfo.adb +++ b/gcc/ada/sinfo.adb @@ -691,7 +691,7 @@ package body Sinfo is end Corresponding_Integer_Value; function Corresponding_Spec - (N : Node_Id) return Node_Id is + (N : Node_Id) return Entity_Id is begin pragma Assert (False or else NT (N).Nkind = N_Expression_Function @@ -3947,7 +3947,7 @@ package body Sinfo is end Set_Corresponding_Integer_Value; procedure Set_Corresponding_Spec - (N : Node_Id; Val : Node_Id) is + (N : Node_Id; Val : Entity_Id) is begin pragma Assert (False or else NT (N).Nkind = N_Expression_Function |