diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2022-04-26 15:21:00 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-05-30 08:29:03 +0000 |
commit | b341b8130f80c9acec384e7acc98283bccd349d2 (patch) | |
tree | 877fa8247a83be3f169c3d130028151e802b1598 /gcc/ada/sem_warn.adb | |
parent | 6a91be29578fa466376cd482d3abed5eb20685b4 (diff) | |
download | gcc-b341b8130f80c9acec384e7acc98283bccd349d2.zip gcc-b341b8130f80c9acec384e7acc98283bccd349d2.tar.gz gcc-b341b8130f80c9acec384e7acc98283bccd349d2.tar.bz2 |
[Ada] Deconstruct deferred references
While cleaning up and modifying code for unreferenced warnings we
removed all calls to Defer_Reference, which was the only routine that
populated the Deferred_References table. Consequently, all the code
related to this table became dead.
gcc/ada/
* lib-xref.ads (Deferred_Reference_Entry, Defer_Reference,
Process_Deferred_References, Has_Deferred_Reference): Remove
client API.
* lib-xref.adb (Deferred_References, Defer_Reference,
Has_Deferred_Reference, Process_Deferred_References): Remove
implementation.
* frontend.adb, sem_ch11.adb, sem_ch5.adb, sem_res.adb,
sem_util.adb, sem_warn.adb: Remove uses of Deferred_References.
Diffstat (limited to 'gcc/ada/sem_warn.adb')
-rw-r--r-- | gcc/ada/sem_warn.adb | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index c8d00a5..1bc248c 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -31,7 +31,6 @@ with Einfo.Utils; use Einfo.Utils; with Errout; use Errout; with Exp_Code; use Exp_Code; with Lib; use Lib; -with Lib.Xref; use Lib.Xref; with Namet; use Namet; with Nlists; use Nlists; with Opt; use Opt; @@ -1132,8 +1131,6 @@ package body Sem_Warn is -- Start of processing for Check_References begin - Process_Deferred_References; - -- No messages if warnings are suppressed, or if we have detected any -- real errors so far (this last check avoids junk messages resulting -- from errors, e.g. a subunit that is not loaded). @@ -2762,8 +2759,6 @@ package body Sem_Warn is return; end if; - Process_Deferred_References; - -- Flag any unused with clauses. For a subunit, check only the units -- in its context, not those of the parent, which may be needed by other -- subunits. We will get the full warnings when we compile the parent, @@ -4703,8 +4698,6 @@ package body Sem_Warn is Ent : Entity_Id; begin - Process_Deferred_References; - if Warn_On_Modified_Unread and then In_Extended_Main_Source_Unit (E) then |