diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_decls.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_decls.adb b/src/vhdl/vhdl-sem_decls.adb index 21c4d3542..31d6ef6fe 100644 --- a/src/vhdl/vhdl-sem_decls.adb +++ b/src/vhdl/vhdl-sem_decls.adb @@ -848,6 +848,7 @@ package body Vhdl.Sem_Decls is if not Is_Anonymous_Type_Definition (Def) and then Get_Kind (Def) /= Iir_Kind_Protected_Type_Declaration + and then Get_Kind (Def) /= Iir_Kind_Interface_Type_Definition then -- There is no added constraints and therefore the subtype -- declaration is in fact an alias of the type. Create a copy so |