From 0a190dfd4af27afb8eaf03082af81acbb5bf8a80 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 31 Aug 2011 10:37:37 +0200 Subject: [multiple changes] 2011-08-31 Hristian Kirtchev * 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 * a-cbhase.adb (Symmetric_Difference): Dereference correct node array. * a-chtgbo.adb (Free): Allow 0 as index value. 2011-08-31 Matthew Heaney * a-cborma.adb (Insert): Add comment to explain why no element assignment. 2011-08-31 Gary Dismukes * 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 --- gcc/ada/sem_ch12.adb | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'gcc/ada/sem_ch12.adb') 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)); -- cgit v1.1