From f404dd44078fdecf83b142831d6cc6f52f3a76b6 Mon Sep 17 00:00:00 2001 From: Viljar Indus Date: Thu, 8 Jun 2023 17:29:23 +0300 Subject: [PATCH] ada: Update printing container aggregates for debugging All N_Aggregate nodes were printed with parentheses "()". However the new container aggregates (homogeneous N_Aggregate nodes) should be printed with brackets "[]". gcc/ada/ * sprint.adb (Print_Node_Actual): Print homogeneous N_Aggregate nodes with brackets. --- gcc/ada/sprint.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index dd4f420af35..f54d409ef96 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1084,7 +1084,8 @@ package body Sprint is Write_Str_With_Col_Check_Sloc ("(null record)"); else - Write_Str_With_Col_Check_Sloc ("("); + Write_Str_With_Col_Check_Sloc + (if Is_Homogeneous_Aggregate (Node) then "[" else "("); if Present (Expressions (Node)) then Sprint_Comma_List (Expressions (Node)); @@ -1120,7 +1121,8 @@ package body Sprint is Indent_End; end if; - Write_Char (')'); + Write_Char + (if Is_Homogeneous_Aggregate (Node) then ']' else ')'); end if; when N_Allocator => -- 2.11.4.GIT