diff options
Diffstat (limited to 'src/vhdl/sem_decls.adb')
| -rw-r--r-- | src/vhdl/sem_decls.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/sem_decls.adb b/src/vhdl/sem_decls.adb index 7d83c2e13..517d69c6c 100644 --- a/src/vhdl/sem_decls.adb +++ b/src/vhdl/sem_decls.adb @@ -128,7 +128,6 @@ package body Sem_Decls is A_Type := Get_Subtype_Indication (Inter); if A_Type = Null_Iir then pragma Assert (Last /= Null_Iir); - Set_Subtype_Indication (Inter, Get_Subtype_Indication (Last)); A_Type := Get_Type (Last); Default_Value := Get_Default_Value (Last); else @@ -1741,6 +1740,9 @@ package body Sem_Decls is end if; else Default_Value := Get_Default_Value (Last_Decl); + if Is_Valid (Default_Value) then + Set_Is_Ref (Decl, True); + end if; Atype := Get_Type (Last_Decl); end if; |