diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sprint.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/sprint.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/switch-c.adb | 1 |
3 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 611563a..c13be5d 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -588,7 +588,7 @@ package body Sprint is Print_Generated_Code or Debug_Generated_Code; Dump_Original_Only := Debug_Flag_O; - Dump_Freeze_Null := Debug_Flag_S or Debug_Flag_G; + Dump_Freeze_Null := Debug_Flag_S or Dump_Generated_Only; -- Note that we turn off the tree dump flags immediately, before -- starting the dump. This avoids generating two copies of the dump diff --git a/gcc/ada/sprint.ads b/gcc/ada/sprint.ads index f05356e..e3fd582 100644 --- a/gcc/ada/sprint.ads +++ b/gcc/ada/sprint.ads @@ -97,7 +97,7 @@ package Sprint is -- -dg print source from tree, including only the generated code -- -do print source from tree, including only the original code -- -df modify the above to include all units, not just the main unit - -- -sz print source from tree for package Standard + -- -dz print source from tree for package Standard procedure Sprint_Comma_List (List : List_Id); -- Prints the nodes in a list, with separating commas. If the list is empty diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb index 020be63..4072738 100644 --- a/gcc/ada/switch-c.adb +++ b/gcc/ada/switch-c.adb @@ -451,7 +451,6 @@ package body Switch.C is Debug_Generated_Code := True; Xref_Active := False; - Set_Debug_Flag ('g'); -- -gnate? (extended switches) |