From 4b16f8e375ec96f97aa50b735a338a915c25d3a8 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 21 Jan 2014 08:01:05 +0000 Subject: 2014-01-21 Javier Miranda * exp_ch3.adb (Build_Init_Procedure): For derivations of interfaces, do not move the the initialization of the _parent field since such assignment is not generated. 2014-01-21 Ed Schonberg * sem_res.adb (Rewrite_Renamed_Operator): Do not replace entity with the operator it renames if we are within an expression of a pre/postcondition, because the expression will be reanalyzed at a later point, and the analysis of the renaming may affect the visibility of the operator when in an instance. 2014-01-21 Robert Dewar * sinfo.ads, sinfo.adb: Change Do_Discriminant_Check to use new Flag1. Add this flag to type conversion nodes and assignment nodes. * treepr.adb: Deal properly with Flag 1,2,3. * treeprs.adt: Minor comment update. 2014-01-21 Robert Dewar * sem_eval.adb (Compile_Time_Known_Value): Add Ignore_CRT parameter. * sem_eval.ads (Compile_Time_Known_Value): Add Ignore_CRT parameter, completely rewrite spec. 2014-01-21 Ed Schonberg * sem_ch10.adb (Install_Withed_Unit): If the unit is a subprogram instance that is inlined, it may have been rewritten as a wrapper package. In that case the unit that must be made visible is the related instance of the package. 2014-01-21 Arnaud Charlet * exp_ch9.adb (Expand_N_Selective_Accept.Add_Accept): Refine previous change in codepeer mode. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206874 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/treepr.adb | 28 +++++++--------------------- 1 file changed, 7 insertions(+), 21 deletions(-) (limited to 'gcc/ada/treepr.adb') diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index 4de6b8529f1..f14813013b1 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -1184,10 +1184,9 @@ package body Treepr is when F_Field5 => Field_To_Be_Printed := Field5 (N) /= Union_Id (Empty); - -- Flag3 is obsolete, so this probably gets removed ??? - - when F_Flag3 => Field_To_Be_Printed := Has_Aspects (N); - + when F_Flag1 => Field_To_Be_Printed := Flag1 (N); + when F_Flag2 => Field_To_Be_Printed := Flag2 (N); + when F_Flag3 => Field_To_Be_Printed := Flag3 (N); when F_Flag4 => Field_To_Be_Printed := Flag4 (N); when F_Flag5 => Field_To_Be_Printed := Flag5 (N); when F_Flag6 => Field_To_Be_Printed := Flag6 (N); @@ -1203,11 +1202,6 @@ package body Treepr is when F_Flag16 => Field_To_Be_Printed := Flag16 (N); when F_Flag17 => Field_To_Be_Printed := Flag17 (N); when F_Flag18 => Field_To_Be_Printed := Flag18 (N); - - -- Flag1,2 are no longer used - - when F_Flag1 => raise Program_Error; - when F_Flag2 => raise Program_Error; end case; -- Print field if it is to be printed @@ -1233,14 +1227,15 @@ package body Treepr is -- Special case End_Span = Uint5 when F_Field5 => - if Nkind (N) = N_Case_Statement - or else Nkind (N) = N_If_Statement - then + if Nkind_In (N, N_Case_Statement, N_If_Statement) then Print_End_Span (N); else Print_Field (Field5 (N), Fmt); end if; + when F_Flag1 => Print_Flag (Flag1 (N)); + when F_Flag2 => Print_Flag (Flag2 (N)); + when F_Flag3 => Print_Flag (Flag3 (N)); when F_Flag4 => Print_Flag (Flag4 (N)); when F_Flag5 => Print_Flag (Flag5 (N)); when F_Flag6 => Print_Flag (Flag6 (N)); @@ -1256,15 +1251,6 @@ package body Treepr is when F_Flag16 => Print_Flag (Flag16 (N)); when F_Flag17 => Print_Flag (Flag17 (N)); when F_Flag18 => Print_Flag (Flag18 (N)); - - -- Flag1,2 are no longer used - - when F_Flag1 => raise Program_Error; - when F_Flag2 => raise Program_Error; - - -- Not clear why we need the following ??? - - when F_Flag3 => Print_Flag (Has_Aspects (N)); end case; Print_Eol; -- cgit v1.2.1