From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 3 Jan 2020 10:58:37 +0000 (+0100)
Subject: [Ada] Remove -gnatt switch processing
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5cea137308eb2e3912e052132131c7b7d9e19e63;p=gcc.git

[Ada] Remove -gnatt switch processing

2020-06-03  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* switch-c.adb (Scan_Front_End_Switches): Remove processing of
	-gnatt.
	* usage.adb (Usage): Remove mention of -gnatt.
---

diff --git a/gcc/ada/switch-c.adb b/gcc/ada/switch-c.adb
index 1b7259c9fcf..319188b3d75 100644
--- a/gcc/ada/switch-c.adb
+++ b/gcc/ada/switch-c.adb
@@ -1250,13 +1250,6 @@ package body Switch.C is
                Print_Standard := True;
                Ptr := Ptr + 1;
 
-            --  -gnatt (output tree)
-
-            when 't' =>
-               Ptr := Ptr + 1;
-               Tree_Output := True;
-               Back_Annotate_Rep_Info := True;
-
             --  -gnatT (change start of internal table sizes)
 
             when 'T' =>
diff --git a/gcc/ada/usage.adb b/gcc/ada/usage.adb
index 532dd5720d1..2afd3fc54ea 100644
--- a/gcc/ada/usage.adb
+++ b/gcc/ada/usage.adb
@@ -418,11 +418,6 @@ begin
    Write_Switch_Char ("S");
    Write_Line ("Print listing of package Standard");
 
-   --  Line for -gnatt switch
-
-   Write_Switch_Char ("t");
-   Write_Line ("Tree output file to be generated");
-
    --  Line for -gnatTnn switch
 
    Write_Switch_Char ("Tnn");