diff options
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 9e8362f..1f88158 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -2009,7 +2009,7 @@ package body Sprint is Sprint_Node (Condition); Write_Str_With_Col_Check (" then "); - -- Defense against junk here! + -- Defense against junk here if Present (Then_Expr) then Sprint_Node (Then_Expr); @@ -4007,7 +4007,7 @@ package body Sprint is and then Defining_Entity (P) = Typ then -- We must set Itype_Printed true before the recursive call to - -- print the node, otherwise we get an infinite recursion! + -- print the node, otherwise we get an infinite recursion. Set_Itype_Printed (Typ, True); |