diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-10-16 06:22:04 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-10-16 06:22:04 +0200 |
commit | 22bc0c766413107d826c675e726a32735f8601cc (patch) | |
tree | ce47333f0d1f33464b55923031880c6059aa372d /src | |
parent | 2f1dd7086e3a03faca25ec1f9dc21ee63f8155a0 (diff) | |
download | ghdl-22bc0c766413107d826c675e726a32735f8601cc.tar.gz ghdl-22bc0c766413107d826c675e726a32735f8601cc.tar.bz2 ghdl-22bc0c766413107d826c675e726a32735f8601cc.zip |
vhdl-sem_expr.adb(is_string_type): check character type.
Fix #2217
Diffstat (limited to 'src')
-rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index e1938b1a4..b4218d076 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -268,7 +268,9 @@ package body Vhdl.Sem_Expr is if Get_Kind (El_Bt) /= Iir_Kind_Enumeration_Type_Definition then return False; end if; - -- FIXME: character type + if not Get_Is_Character_Type (El_Bt) then + return False; + end if; return True; end Is_String_Type; |