diff options
Diffstat (limited to 'gcc/ada/treepr.adb')
| -rw-r--r-- | gcc/ada/treepr.adb | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/gcc/ada/treepr.adb b/gcc/ada/treepr.adb index fbad71a..d1fa9c2 100644 --- a/gcc/ada/treepr.adb +++ b/gcc/ada/treepr.adb @@ -140,7 +140,10 @@ package body Treepr is procedure Print_Init; -- Initialize for printing of tree with descendants - procedure Print_End_Span (N : Node_Id); + procedure Print_End_Span + (Prefix : String; + Field : Node_Field; + N : Node_Id); -- Print contents of End_Span field of node N. The format includes the -- implicit source location as well as the value of the field. @@ -328,6 +331,8 @@ package body Treepr is return "Ignore_SPARK_Mode_Pragmas"; when F_Is_CPP_Class => return "Is_CPP_Class"; + when F_Is_CPP_Constructor => + return "Is_CPP_Constructor"; when F_Is_CUDA_Kernel => return "Is_CUDA_Kernel"; when F_Is_DIC_Procedure => @@ -338,6 +343,8 @@ package body Treepr is return "Is_Elaboration_Checks_OK_Id"; when F_Is_Elaboration_Warnings_OK_Id => return "Is_Elaboration_Warnings_OK_Id"; + when F_Is_IEEE_Extended_Precision => + return "Is_IEEE_Extended_Precision"; when F_Is_RACW_Stub_Type => return "Is_RACW_Stub_Type"; when F_LSP_Subprogram => @@ -603,10 +610,16 @@ package body Treepr is -- Print_End_Span -- -------------------- - procedure Print_End_Span (N : Node_Id) is + procedure Print_End_Span + (Prefix : String; + Field : Node_Field; + N : Node_Id) + is Val : constant Uint := End_Span (N); begin + Write_Str (Prefix); + Write_Str (Image (Field) & " = "); UI_Write (Val); Write_Str (" (Uint = "); Write_Str (UI_Image (Val)); @@ -615,6 +628,8 @@ package body Treepr is if Present (Val) then Write_Location (End_Location (N)); end if; + + Write_Eol; end Print_End_Span; ------------------------ @@ -1437,7 +1452,7 @@ package body Treepr is -- End_Location. if Fields (Field_Index) = F_End_Span then - Print_End_Span (N); + Print_End_Span (Prefix, F_End_Span, N); else Print_Node_Field |