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/sem_ch12.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/sem_ch12.adb')
-rw-r--r-- | gcc/ada/sem_ch12.adb | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 084335c..fe867f3 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -4923,14 +4923,6 @@ package body Sem_Ch12 is Set_Comes_From_Source (Act_Decl_Id, Comes_From_Source (Gen_Unit)); - -- The signature may involve types that are not frozen yet, but the - -- subprogram will be frozen at the point the wrapper package is - -- frozen, so it does not need its own freeze node. In fact, if one - -- is created, it might conflict with the freezing actions from the - -- wrapper package. - - Set_Has_Delayed_Freeze (Anon_Id, False); - -- If the instance is a child unit, mark the Id accordingly. Mark -- the anonymous entity as well, which is the real subprogram and -- which is used when the instance appears in a context clause. |