diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-10-01 19:15:06 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-10-01 19:15:06 +0200 |
commit | edb8566e50c6c6041cb31006ed4c11c7adb2831d (patch) | |
tree | fda59ca1ad13b18a16d1c254a869da56ddbcb1ab /src/vhdl/vhdl-sem_decls.adb | |
parent | c6a66177de52ea5dc83582c24151e8ef7e86a266 (diff) | |
download | ghdl-edb8566e50c6c6041cb31006ed4c11c7adb2831d.tar.gz ghdl-edb8566e50c6c6041cb31006ed4c11c7adb2831d.tar.bz2 ghdl-edb8566e50c6c6041cb31006ed4c11c7adb2831d.zip |
vhdl: report unused types and subtypes
Diffstat (limited to 'src/vhdl/vhdl-sem_decls.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_decls.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb index f79f0def0..f7b57f601 100644 --- a/src/vhdl/vhdl-sem_decls.adb +++ b/src/vhdl/vhdl-sem_decls.adb @@ -2529,7 +2529,9 @@ package body Vhdl.Sem_Decls is end if; when Iir_Kind_Signal_Declaration | Iir_Kind_Variable_Declaration - | Iir_Kind_Component_Declaration => + | Iir_Kind_Component_Declaration + | Iir_Kind_Type_Declaration + | Iir_Kind_Subtype_Declaration => if not Get_Use_Flag (El) then Warning_Msg_Sem (Warnid_Unused, +El, "%n is never referenced", +El); |