From b9d724056d765418acf57c2fa7a79b7ef7e73721 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Thu, 5 Oct 2006 19:08:37 +0000
Subject: sem_add_driver: correctly get alias base

---
 sem_stmts.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sem_stmts.adb')

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
-- 
cgit v1.2.3