diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 09:55:03 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 09:55:03 +0000 |
| commit | d02513399b3ef2bbfb9b6b7342c5a6f71bed1fa4 (patch) | |
| tree | 3f5c379f93247973716c19843bf424726be37cb0 /gcc/ada/sem_ch4.adb | |
| parent | 008ad8451d3a598ca302f9b6f7bcb092fdd2778f (diff) | |
| download | ppe42-gcc-d02513399b3ef2bbfb9b6b7342c5a6f71bed1fa4.tar.gz ppe42-gcc-d02513399b3ef2bbfb9b6b7342c5a6f71bed1fa4.zip | |
2011-08-04 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb, sem_ch4.adb: move check for restriction
No_Task_Hierarchy to resolve_allocator.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177350 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch4.adb')
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 6aa3ae9f7c0..2025224d3dd 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -654,13 +654,6 @@ package body Sem_Ch4 is Check_Restriction (No_Tasking, N); Check_Restriction (Max_Tasks, N); Check_Restriction (No_Task_Allocators, N); - - -- Check that an allocator with task parts isn't for a nested access - -- type when restriction No_Task_Hierarchy applies. - - if not Is_Library_Level_Entity (Acc_Type) then - Check_Restriction (No_Task_Hierarchy, N); - end if; end if; -- Check that an allocator of a nested access type doesn't create a |
