diff options
| -rw-r--r-- | sem_stmts.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_stmts.adb b/sem_stmts.adb index d7e828e..0bda7f1 100644 --- a/sem_stmts.adb +++ b/sem_stmts.adb @@ -1839,7 +1839,7 @@ package body Sem_Stmts is if Sig = Null_Iir then return; end if; - Sig_Object := Get_Base_Name (Sig); + Sig_Object := Get_Object_Prefix (Sig); Sig_Object_Type := Get_Type (Sig_Object); -- LRM 4.3.1.2 Signal Declaration |