aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2023-02-03 19:11:09 +0100
committerTristan Gingold <tgingold@free.fr>2023-02-03 19:11:09 +0100
commit647546bd637e2d2b55dd1db00e277dff56ad36c1 (patch)
tree677d841b3e28c0e0803f6b2537e895dde937074f
parentd38356d2e2213655f60ea60ef6a60af0c3c36aa0 (diff)
downloadghdl-647546bd637e2d2b55dd1db00e277dff56ad36c1.tar.gz
ghdl-647546bd637e2d2b55dd1db00e277dff56ad36c1.tar.bz2
ghdl-647546bd637e2d2b55dd1db00e277dff56ad36c1.zip
vhdl-sem_decls: fix a regression on subtype indication. Fix #2336
-rw-r--r--src/vhdl/vhdl-sem_decls.adb2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb
index a84435fa9..32b56a690 100644
--- a/src/vhdl/vhdl-sem_decls.adb
+++ b/src/vhdl/vhdl-sem_decls.adb
@@ -852,7 +852,7 @@ package body Vhdl.Sem_Decls is
return;
end if;
- if Is_Proper_Subtype_Indication (Ind) then
+ if not Is_Proper_Subtype_Indication (Ind) then
if Get_Kind (Def) /= Iir_Kind_Protected_Type_Declaration
and then Get_Kind (Def) /= Iir_Kind_Interface_Type_Definition
then