diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-11-11 12:36:10 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-01 10:24:40 +0000 |
| commit | 38df84ae8aaa0c9e753218f5b1d087e95b13c546 (patch) | |
| tree | 0422dbe421a99707cf22400cc8a83ef4f167dce7 /gcc | |
| parent | 790b8752100e699d98140f0b094cbf5b893aa7dd (diff) | |
| download | gcc-38df84ae8aaa0c9e753218f5b1d087e95b13c546.zip gcc-38df84ae8aaa0c9e753218f5b1d087e95b13c546.tar.gz gcc-38df84ae8aaa0c9e753218f5b1d087e95b13c546.tar.bz2 | |
[Ada] Fix small discrepancy between -gnatG and -gnatD[G] outputs
gcc/ada/
* sprint.ads (Source_Dump): Fix typo in comment.
* sprint.adb (Source_Dump): Set Dump_Freeze_Null for both -gnatG
and -gnatD.
* switch-c.adb (Scan_Front_End_Switches) <'D'>: Remove obsolete
kludge.
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) |