diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-31 10:37:37 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-31 10:37:37 +0200 |
| commit | 0a190dfd4af27afb8eaf03082af81acbb5bf8a80 (patch) | |
| tree | 05f58af667e348f42a36576e56904ec7c8c9e1c0 /gcc/ada/sem_ch12.adb | |
| parent | 8861e60f317087011b73617dd4efa5eb9e7a1acf (diff) | |
| download | gcc-0a190dfd4af27afb8eaf03082af81acbb5bf8a80.zip gcc-0a190dfd4af27afb8eaf03082af81acbb5bf8a80.tar.gz gcc-0a190dfd4af27afb8eaf03082af81acbb5bf8a80.tar.bz2 | |
[multiple changes]
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12 (Check_Private_View): Revert previous change.
* sem_res.adb (Conversion_Check): Do not emit the error message if the
conversion is in a generic instance.
2011-08-31 Matthew Heaney <heaney@adacore.com>
* a-cbhase.adb (Symmetric_Difference): Dereference correct node array.
* a-chtgbo.adb (Free): Allow 0 as index value.
2011-08-31 Matthew Heaney <heaney@adacore.com>
* a-cborma.adb (Insert): Add comment to explain why no element
assignment.
2011-08-31 Gary Dismukes <dismukes@adacore.com>
* sem_util.adb (Find_Body_Discriminal): Test whether the scope of the
spec discriminant is already a concurrent type, in which case just use
it, otherwise fetch the Corresponding_Concurrent_Type as before.
From-SVN: r178356
Diffstat (limited to 'gcc/ada/sem_ch12.adb')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index d48dcae..4cf739f 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -5748,17 +5748,12 @@ package body Sem_Ch12 is end if; -- For composite types with inconsistent representation exchange - -- component types accordingly. We exchange the private and full view - -- of a designated type when the related access type is an actual in - -- an instance. This ensures that the full view of designated type is - -- available when inside the body of the instance. - -- Is this right ??? + -- component types accordingly. elsif Is_Access_Type (T) and then Is_Private_Type (Designated_Type (T)) and then not Has_Private_View (N) and then Present (Full_View (Designated_Type (T))) - and then Used_As_Generic_Actual (T) then Switch_View (Designated_Type (T)); |