diff options
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index bed39b52df4..f10ff039f8d 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1775,6 +1775,13 @@ package body Sprint is Write_Indent_Str (";"); end if; + when N_Delta_Aggregate => + Write_Str_With_Col_Check_Sloc ("("); + Sprint_Node (Expression (Node)); + Write_Str_With_Col_Check (" with delta "); + Sprint_Comma_List (Component_Associations (Node)); + Write_Char (')'); + when N_Extension_Aggregate => Write_Str_With_Col_Check_Sloc ("("); Sprint_Node (Ancestor_Part (Node)); |