[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 c3fc25ed4a539057688533d8da4d993752c1312e..83bafffc13cb3506e5943bd8f596bf39e324edb8 100644 (file)
--- 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 9a3935c33bda17e0557954e93e25e80657fe7851..3737f664567ee938dd44b5230308243f71d57602 100644 (file)
--- 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