diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-02-03 19:11:09 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-02-03 19:11:09 +0100 |
| commit | 647546bd637e2d2b55dd1db00e277dff56ad36c1 (patch) | |
| tree | 677d841b3e28c0e0803f6b2537e895dde937074f | |
| parent | d38356d2e2213655f60ea60ef6a60af0c3c36aa0 (diff) | |
| download | ghdl-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.adb | 2 |
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 |