From: Eric Botcazou Date: Thu, 11 Nov 2021 11:36:10 +0000 (+0100) Subject: [Ada] Fix small discrepancy between -gnatG and -gnatD[G] outputs X-Git-Tag: basepoints/gcc-13~2646 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=38df84ae8aaa0c9e753218f5b1d087e95b13c546;p=thirdparty%2Fgcc.git [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. --- diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 611563a1f226..c13be5d1b35a 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 f05356e6237d..e3fd58266c6c 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 020be6354016..40727384a788 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)