[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

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.

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