[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
This commit is contained in:
parent
495cdc79fb
commit
1edfb10a5a
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue