From 1edfb10a5aa9b8943ea9971dd8261b39327eeae2 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Mon, 16 Dec 2019 10:35:31 +0000 Subject: [PATCH] [Ada] Suppress unused warnings in the presence of errors 2019-12-16 Bob Duff gcc/ada/ * errout.adb (Handle_Serious_Error): Disable the above-mentioned warnings. From-SVN: r279441 --- gcc/ada/ChangeLog | 5 +++++ gcc/ada/errout.adb | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0f94e4047d1..5b1b98c639f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2019-12-16 Bob Duff + + * errout.adb (Handle_Serious_Error): Disable the above-mentioned + warnings. + 2019-12-16 Bob Duff * errout.adb, errout.ads: Improve comments. diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index db3393c59f1..a08c6dfe20e 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -861,6 +861,14 @@ package body Errout is end if; end; end if; + + -- Disable warnings on unused use clauses and the like. Otherwise, an + -- error might hide a reference to an entity in a used package, so + -- after fixing the error, the use clause no longer looks like it was + -- unused. + + Check_Unreferenced := False; + Check_Unreferenced_Formals := False; end Handle_Serious_Error; -- Start of processing for Error_Msg_Internal -- 2.30.2