From e690e0c287db5cdb33c229be95f5c3a9ef9bd9f0 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 12 Jul 2021 06:33:29 -0400 Subject: [PATCH] [Ada] Mark gnatfind and gnatxref obsolete gcc/ada/ * gnatfind.adb, gnatxref.adb: Mark these tools as obsolete before removing them completely. --- gcc/ada/gnatfind.adb | 5 +++++ gcc/ada/gnatxref.adb | 5 +++++ 2 files changed, 10 insertions(+) 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 -- 2.47.2