From d142b93ca425c2b7194ec2ea5a558d005aa62734 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 28 Nov 2018 19:04:49 +0100
Subject: sem_scopes: potentially visible name cannot conflict with a normal
 one.

Fix #710
---
 src/vhdl/sem_scopes.adb | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/vhdl/sem_scopes.adb b/src/vhdl/sem_scopes.adb
index 6a71c4925..3fe12923e 100644
--- a/src/vhdl/sem_scopes.adb
+++ b/src/vhdl/sem_scopes.adb
@@ -636,10 +636,8 @@ package body Sem_Scopes is
                --  1. A potentially visible declaration is not made
                --     directly visible if the place considered is within the
                --     immediate scope of a homograph of the declaration.
-               if Is_In_Current_Declarative_Region (Homograph) then
-                  if not Is_Potentially_Visible (Homograph) then
-                     return;
-                  end if;
+               if not Is_Potentially_Visible (Homograph) then
+                  return;
                end if;
 
                --  LRM08 12.4 Use Clauses
-- 
cgit v1.2.3