diff options
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 57b2fe0fdaf..5fe9e1c550e 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1014,9 +1014,9 @@ package body Sprint is end if; Sprint_Node (Subtype_Indication (Node)); + else - pragma Assert (False); - null; + Write_Str (" ??? "); end if; when N_Component_Declaration => @@ -1782,8 +1782,7 @@ package body Sprint is Sprint_Node (Subtype_Mark (Node)); else - pragma Assert (False); - null; + Write_Str (" ??? "); end if; Write_Str_With_Col_Check (" renames "); @@ -2601,8 +2600,15 @@ package body Sprint is -- Ada 0Y (AI-50217): Print limited with_clauses - if Limited_Present (Node) then + if Private_Present (Node) and Limited_Present (Node) then + Write_Indent_Str ("limited private with "); + + elsif Private_Present (Node) then + Write_Indent_Str ("private with "); + + elsif Limited_Present (Node) then Write_Indent_Str ("limited with "); + else Write_Indent_Str ("with "); end if; |