diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-06-05 20:32:28 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-06-05 20:32:28 +0200 |
| commit | 7da8782857a299f95e2cf1c348cd7f67f62cd2eb (patch) | |
| tree | b666756ee95827dbad13b4ed59c4986d1c833bf8 /src/vhdl/vhdl-sem_assocs.adb | |
| parent | 7788d84b06b72c874043541011840f95472ce6e9 (diff) | |
| download | ghdl-7da8782857a299f95e2cf1c348cd7f67f62cd2eb.tar.gz ghdl-7da8782857a299f95e2cf1c348cd7f67f62cd2eb.tar.bz2 ghdl-7da8782857a299f95e2cf1c348cd7f67f62cd2eb.zip | |
vhdl: detect unused signals and variables.
Diffstat (limited to 'src/vhdl/vhdl-sem_assocs.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem_assocs.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb index ee965d0a0..09ed67a85 100644 --- a/src/vhdl/vhdl-sem_assocs.adb +++ b/src/vhdl/vhdl-sem_assocs.adb @@ -402,6 +402,15 @@ package body Vhdl.Sem_Assocs is Error_Kind ("check_subprogram_association(3)", Formal_Inter); end case; + + case Get_Kind (Prefix) is + when Iir_Kind_Signal_Declaration + | Iir_Kind_Variable_Declaration => + Set_Use_Flag (Prefix, True); + when others => + null; + end case; + when Iir_Kind_Association_Element_By_Individual => null; when others => |