From be5e5caa74f6dd084a62c481a2e72acffc708a2b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 23 Jan 2017 20:12:36 +0100
Subject: adjust previous patch.

---
 src/vhdl/sem_names.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index 939b095f4..ad82e329f 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -1095,8 +1095,9 @@ package body Sem_Names is
          return;
       end if;
 
-      Prefix := Name_To_Analyzed_Name (Get_Prefix (Attr));
+      Prefix := Finish_Sem_Name (Get_Prefix (Attr));
       Free_Iir (Attr_Name);
+      Set_Prefix (Attr, Prefix);
 
       Prefix_Type := Get_Type (Prefix);
       Prefix_Bt := Get_Base_Type (Prefix_Type);
-- 
cgit v1.2.3