projects
/
platform
/
upstream
/
gcc.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
3bb4836
)
[Ada] Prevent crashes when pretty-printing freeze nodes from gdb
author
Piotr Trojanek
<trojanek@adacore.com>
Fri, 24 Jul 2020 10:52:00 +0000
(12:52 +0200)
committer
Pierre-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
3aeb95f
..
774bcf7
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