vhdl-sem.adb: avoid a crash on conformance error. Fix #2103

1 files changed, 2 insertions, 2 deletions

diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb
index 924ad9429..0de4c2c7d 100644
--- a/src/vhdl/vhdl-sem.adb
+++ b/src/vhdl/vhdl-sem.adb
@@ -1393,8 +1393,8 @@ package body Vhdl.Sem is
       --  meaning of the simple name is given by the same declaration.
       if Get_Kind (Left) in Iir_Kinds_Denoting_Name then
          if Get_Kind (Right) in Iir_Kinds_Denoting_Name then
-            return Are_Trees_Equal (Get_Named_Entity (Left),
-                                    Get_Named_Entity (Right));
+            return Get_Identifier (Left) = Get_Identifier (Right)
+              and then Get_Named_Entity (Left) = Get_Named_Entity (Right);
          else
             return False;
          end if;