diff options
author | Bob Duff <duff@adacore.com> | 2019-12-16 10:35:31 +0000 |
---|---|---|
committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-12-16 10:35:31 +0000 |
commit | 1edfb10a5aa9b8943ea9971dd8261b39327eeae2 (patch) | |
tree | f12d37bf9d8fef77f57b434c5373e127689916a6 /gcc/ada | |
parent | 495cdc79fb629750a71d5b1b1258425c3c3ebc58 (diff) | |
download | gcc-1edfb10a5aa9b8943ea9971dd8261b39327eeae2.zip gcc-1edfb10a5aa9b8943ea9971dd8261b39327eeae2.tar.gz gcc-1edfb10a5aa9b8943ea9971dd8261b39327eeae2.tar.bz2 |
[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
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/ada/errout.adb | 8 |
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 |