From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 152D33858419; Wed, 1 Dec 2021 10:26:15 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 152D33858419 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-5667] [Ada] Fix small discrepancy between -gnatG and -gnatD[G] outputs X-Act-Checkin: gcc X-Git-Author: Eric Botcazou X-Git-Refname: refs/heads/master X-Git-Oldrev: 790b8752100e699d98140f0b094cbf5b893aa7dd X-Git-Newrev: 38df84ae8aaa0c9e753218f5b1d087e95b13c546 Message-Id: <20211201102615.152D33858419@sourceware.org> Date: Wed, 1 Dec 2021 10:26:15 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 01 Dec 2021 10:26:15 -0000 https://gcc.gnu.org/g:38df84ae8aaa0c9e753218f5b1d087e95b13c546 commit r12-5667-g38df84ae8aaa0c9e753218f5b1d087e95b13c546 Author: Eric Botcazou Date: Thu Nov 11 12:36:10 2021 +0100 [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: --- gcc/ada/sprint.adb | 2 +- gcc/ada/sprint.ads | 2 +- 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 611563a1f22..c13be5d1b35 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 f05356e6237..e3fd58266c6 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 020be635401..40727384a78 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)