diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-20 14:48:32 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-20 14:48:32 +0100 |
| commit | c0cdbd39634ec31bb882cb8fd10281c466a3f116 (patch) | |
| tree | 92d48152d59a4acf2b86ea5aed380bc117b69211 /gcc/ada/atree.adb | |
| parent | fe4552f4aa8a2a96a58bd2c2d4db8a41bee97936 (diff) | |
| download | gcc-c0cdbd39634ec31bb882cb8fd10281c466a3f116.zip gcc-c0cdbd39634ec31bb882cb8fd10281c466a3f116.tar.gz gcc-c0cdbd39634ec31bb882cb8fd10281c466a3f116.tar.bz2 | |
[multiple changes]
2014-02-20 Robert Dewar <dewar@adacore.com>
* s-os_lib.ads (Rename_File): Minor commment addition.
2014-02-20 Thomas Quinot <quinot@adacore.com>
* einfo.ads: Minor reformatting.
2014-02-20 Hristian Kirtchev <kirtchev@adacore.com>
* aspects.adb (Exchange_Aspects): New routine.
* aspects.ads (Exchange_Aspects): New routine.
* atree.adb (Rewrite): Do not check whether the save node has
aspects as it never will, instead check the node about to be clobbered.
* einfo.adb (Write_Field25_Name): Abstract_States can appear in
entities of generic packages.
* sem_ch6.adb (Analyze_Expression_Function): Fix the parent
pointer of an aspect specification list after rewriting takes place.
* sem_ch7.adb (Analyze_Package_Body_Helper): Swap the aspect
specifications of the generic template and the copy used for analysis.
* sem_ch12.adb (Analyze_Generic_Package_Declaration): Swap
the aspect specifications of the generic template and the
copy used for analysis.
(Analyze_Package_Instantiation): Propagate the aspect specifications
from the generic template to the instantiation.
(Build_Instance_Compilation_Unit_Nodes): Propagate the aspect
specifications from the generic template to the instantiation.
* sem_ch13.adb (Analyze_Aspect_Specifications): Handle aspects
Abstract_State, Initializes and Initial_Condition when they
apply to a package instantiation.
2014-02-20 Robert Dewar <dewar@adacore.com>
* stringt.adb: Add call to Initialize in package initialization.
From-SVN: r207946
Diffstat (limited to 'gcc/ada/atree.adb')
| -rw-r--r-- | gcc/ada/atree.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 35e8a7a..9e7897e 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -1870,8 +1870,7 @@ package body Atree is -- Both the old and new copies of the node will share the same list -- of aspect specifications if aspect specifications are present. - if Has_Aspects (Sav_Node) then - Set_Has_Aspects (Sav_Node, False); + if Old_Has_Aspects then Set_Aspect_Specifications (Sav_Node, Aspect_Specifications (Old_Node)); end if; |