diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-08 07:48:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2013-07-08 07:48:51 +0000 |
| commit | eb4978dfdc3326e6ea54416180c976415e22fceb (patch) | |
| tree | 0aabec0f495ba5b64ebfecc82e6f9436970717de /gcc/ada/exp_ch3.adb | |
| parent | 623e8f9457ce278a23507096db016a067fb7a94c (diff) | |
| download | gcc-eb4978dfdc3326e6ea54416180c976415e22fceb.tar.gz | |
2013-07-08 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch3.adb (Freeze_Type): Generate a
subpools-related accessibility check only on profiles that
include the corresponding library unit.
2013-07-08 Gary Dismukes <dismukes@adacore.com>
* sem_ch8.adb: Minor typo fixes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@200757 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch3.adb')
| -rw-r--r-- | gcc/ada/exp_ch3.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch3.adb b/gcc/ada/exp_ch3.adb index 160b92df40b..df1935cf54d 100644 --- a/gcc/ada/exp_ch3.adb +++ b/gcc/ada/exp_ch3.adb @@ -7284,11 +7284,17 @@ package body Exp_Ch3 is -- When compiling in Ada 2012 mode, ensure that the accessibility -- level of the subpool access type is not deeper than that of the -- pool_with_subpools. This check is not performed on .NET/JVM - -- since those targets do not support pools. + -- since these targets do not support pools. The check is omitted + -- on profiles that lack package System.Storage_Pools.Subpools. elsif Ada_Version >= Ada_2012 and then Present (Associated_Storage_Pool (Def_Id)) and then VM_Target = No_VM + + -- ??? Temporary workaround until restriction No_Storage_Pools + -- is implemented. + + and then RTE_Available (RE_Root_Storage_Pool_With_Subpools) then declare Loc : constant Source_Ptr := Sloc (Def_Id); |