diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-11-01 19:50:40 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-11-01 21:11:09 +0100 |
commit | b96b6db6df514116d36e776df181582a7d1061f8 (patch) | |
tree | e59c866625f9f8eec66e006397061b8440464e19 /src/vhdl/vhdl-sem_names.adb | |
parent | bd54ba78c09e2d6ec34b57fe3d992abced185b76 (diff) | |
download | ghdl-b96b6db6df514116d36e776df181582a7d1061f8.tar.gz ghdl-b96b6db6df514116d36e776df181582a7d1061f8.tar.bz2 ghdl-b96b6db6df514116d36e776df181582a7d1061f8.zip |
vhdl: also warns on unused enumeration literal
Diffstat (limited to 'src/vhdl/vhdl-sem_names.adb')
-rw-r--r-- | src/vhdl/vhdl-sem_names.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_names.adb b/src/vhdl/vhdl-sem_names.adb index 566932049..28bfcaab4 100644 --- a/src/vhdl/vhdl-sem_names.adb +++ b/src/vhdl/vhdl-sem_names.adb @@ -4830,6 +4830,10 @@ package body Vhdl.Sem_Names is end if; end if; + if Get_Kind (Expr) = Iir_Kind_Enumeration_Literal then + Set_Use_Flag (Expr, True); + end if; + return Res; end if; when Iir_Kind_Function_Call |