From 420021eaee552b73c2b3c7031c983b605efcc59c Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Fri, 24 Jul 2020 12:52:00 +0200 Subject: [PATCH] [Ada] Prevent crashes when pretty-printing freeze nodes from gdb gcc/ada/ * sprint.adb (po): Set Dump_Freeze_Null to False; align colons. (ps): Likewise. --- 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 3aeb95f0493..774bcf7f336 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -441,7 +441,8 @@ package body Sprint is procedure po (Arg : Union_Id) is begin Dump_Generated_Only := False; - Dump_Original_Only := True; + Dump_Original_Only := True; + Dump_Freeze_Null := False; Current_Source_File := No_Source_File; if Arg in List_Range then @@ -473,7 +474,8 @@ package body Sprint is procedure ps (Arg : Union_Id) is begin Dump_Generated_Only := False; - Dump_Original_Only := False; + Dump_Original_Only := False; + Dump_Freeze_Null := False; Current_Source_File := No_Source_File; if Arg in List_Range then -- 2.30.2