aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada')
-rw-r--r--gcc/ada/ChangeLog5
-rw-r--r--gcc/ada/errout.adb8
2 files changed, 13 insertions, 0 deletions
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 <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.
2019-12-16 Bob Duff <duff@adacore.com>
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