diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-10-05 19:08:37 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2006-10-05 19:08:37 +0000 |
commit | b9d724056d765418acf57c2fa7a79b7ef7e73721 (patch) | |
tree | 6514a29fabeff0156eaa09b1c0a001b9f6df8340 | |
parent | f429beadcfe8b8457e253099377a648cd699add3 (diff) | |
download | ghdl-b9d724056d765418acf57c2fa7a79b7ef7e73721.tar.gz ghdl-b9d724056d765418acf57c2fa7a79b7ef7e73721.tar.bz2 ghdl-b9d724056d765418acf57c2fa7a79b7ef7e73721.zip |
sem_add_driver: correctly get alias base
-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 d7e828e7b..0bda7f117 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 |