diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-21 08:01:05 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-21 08:01:05 +0000 |
| commit | 4b16f8e375ec96f97aa50b735a338a915c25d3a8 (patch) | |
| tree | fb8bbd826828d0725d3c0eee2dbf21fdf86f3ebc /gcc/ada/treepr.adb | |
| parent | 8d11916f21bb6b4ff76030c2281a161c9cf02d3a (diff) | |
| download | gcc-4b16f8e375ec96f97aa50b735a338a915c25d3a8.tar.gz | |
2014-01-21 Javier Miranda <miranda@adacore.com>
* 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 <schonberg@adacore.com>
* 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 <dewar@adacore.com>
* 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 <dewar@adacore.com>
* 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 <schonberg@adacore.com>
* 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 <charlet@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/treepr.adb')
| -rw-r--r-- | gcc/ada/treepr.adb | 28 |
1 files changed, 7 insertions, 21 deletions
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; |