From 1edfb10a5aa9b8943ea9971dd8261b39327eeae2 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Mon, 16 Dec 2019 10:35:31 +0000 Subject: [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(+) (limited to 'gcc/ada') diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 0f94e40..5b1b98c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 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. 2019-12-16 Bob Duff diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index db3393c..a08c6df 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 -- cgit v1.1