diff options
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 |