[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.
This commit is contained in:
Eric Botcazou 2021-11-11 12:36:10 +01:00 committed by Pierre-Marie de Rodat
parent 790b875210
commit 38df84ae8a
3 changed files with 2 additions and 3 deletions

View file

@ -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

View file

@ -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

View file

@ -451,7 +451,6 @@ package body Switch.C is
Debug_Generated_Code := True;
Xref_Active := False;
Set_Debug_Flag ('g');
-- -gnate? (extended switches)