From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 12 Jul 2021 10:33:29 +0000 (-0400)
Subject: [Ada] Mark gnatfind and gnatxref obsolete
X-Git-Tag: basepoints/gcc-13~4521
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e690e0c287db5cdb33c229be95f5c3a9ef9bd9f0;p=thirdparty%2Fgcc.git

[Ada] Mark gnatfind and gnatxref obsolete

gcc/ada/

	* gnatfind.adb, gnatxref.adb: Mark these tools as obsolete
	before removing them completely.
---

diff --git a/gcc/ada/gnatfind.adb b/gcc/ada/gnatfind.adb
index c3fc25ed4a53..83bafffc13cb 100644
--- a/gcc/ada/gnatfind.adb
+++ b/gcc/ada/gnatfind.adb
@@ -347,6 +347,11 @@ procedure Gnatfind is
 --  Start of processing for Gnatfind
 
 begin
+   Put_Line
+     ("WARNING: gnatfind is obsolete and will be removed in the next release");
+   Put_Line
+     ("Consider using Libadalang or GNAT Studio python scripting instead");
+
    Parse_Cmd_Line;
 
    if not Have_Entity then
diff --git a/gcc/ada/gnatxref.adb b/gcc/ada/gnatxref.adb
index 9a3935c33bda..3737f664567e 100644
--- a/gcc/ada/gnatxref.adb
+++ b/gcc/ada/gnatxref.adb
@@ -299,6 +299,11 @@ procedure Gnatxref is
    end Write_Usage;
 
 begin
+   Put_Line
+     ("WARNING: gnatxref is obsolete and will be removed in the next release");
+   Put_Line
+     ("Consider using Libadalang or GNAT Studio python scripting instead");
+
    Parse_Cmd_Line;
 
    if not Have_File then