diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-07 15:21:42 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-07 15:21:42 +0200 |
commit | ffdb3d3bfc5137dac557e64396856439784567b9 (patch) | |
tree | 7420cacba4b7749e5a6a784b5434b2b4892952f8 /gcc/ada/exp_ch4.adb | |
parent | 8da337c5025772d12fd6e6c9bfcc8fbd1307461a (diff) | |
download | gcc-ffdb3d3bfc5137dac557e64396856439784567b9.zip gcc-ffdb3d3bfc5137dac557e64396856439784567b9.tar.gz gcc-ffdb3d3bfc5137dac557e64396856439784567b9.tar.bz2 |
[multiple changes]
2010-10-07 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Analyze_Attribute_Definition_Clause, case
Component_Size): It is now illegal to give an incorrect component size
clause in the case of aliased or atomic components.
* sem_prag.adb (Analyze_Pragma, case Pack): It is now illegal to give
an effective pragma Pack in the case of aliased or atomic components.
2010-10-07 Steve Baird <baird@adacore.com>
* exp_ch4.adb (Expand_N_Allocator): Do not bypass expansion
in the case of a violation of an active No_Task_Hierarchy restriction.
2010-10-07 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Validate_Derived_Type_Instance): If a formal derived
type is non-limited, an actual for it cannot be limited.
From-SVN: r165105
Diffstat (limited to 'gcc/ada/exp_ch4.adb')
-rw-r--r-- | gcc/ada/exp_ch4.adb | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 41de2b5..6b9fa57 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -3672,15 +3672,6 @@ package body Exp_Ch4 is if Has_Task (T) then if No (Master_Id (Base_Type (PtrT))) then - -- If we have a non-library level task with restriction - -- No_Task_Hierarchy set, then no point in expanding. - - if not Is_Library_Level_Entity (T) - and then Restriction_Active (No_Task_Hierarchy) - then - return; - end if; - -- The designated type was an incomplete type, and the -- access type did not get expanded. Salvage it now. |