[Ada] Suppress unused warnings in the presence of errors

2019-12-16  Bob Duff  <duff@adacore.com>

gcc/ada/

	* errout.adb (Handle_Serious_Error): Disable the above-mentioned
	warnings.

From-SVN: r279441

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0f94e4047d180f8020da0766e8396d3883c22a33..5b1b98c639f739d67eb23c4ea94eae064dfa0c5a 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-16  Bob Duff  <duff@adacore.com>
+
+       * errout.adb (Handle_Serious_Error): Disable the above-mentioned
+       warnings.
+
 2019-12-16  Bob Duff  <duff@adacore.com>
 
        * errout.adb, errout.ads: Improve comments.

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index db3393c59f1dd7332c0cdd36697ae00b493d2d7c..a08c6dfe20e8cf1b15f5cdb6e61848ce5f3efbe9 100644 (file)
--- 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