projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3bb4836)
[Ada] Prevent crashes when pretty-printing freeze nodes from gdb
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 24 Jul 2020 10:52:00 +0000 (12:52 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 20 Oct 2020 07:21:53 +0000 (03:21 -0400)
gcc/ada/

* sprint.adb (po): Set Dump_Freeze_Null to False; align colons.
(ps): Likewise.

gcc/ada/sprint.adb patch | blob | history

diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index 3aeb95f0493cf5f556c4c4de57461f6af778cc52..774bcf7f3362a70ceb91d655820818f56f8e68da 100644 (file)
--- 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