From 0a52b0a867c25acdaac1591d4e269d5823d2c972 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 7 Aug 2022 07:32:49 +0200
Subject: vhdl-sem.adb(are_trees_equal): handle qualified expressions.  Fix
 #2164

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

(limited to 'src/vhdl/vhdl-sem.adb')

diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb
index 8510398ff..e6c003003 100644
--- a/src/vhdl/vhdl-sem.adb
+++ b/src/vhdl/vhdl-sem.adb
@@ -1566,7 +1566,8 @@ package body Vhdl.Sem is
               and then Are_Trees_Equal (Get_Formal_Conversion (Left),
                                         Get_Formal_Conversion (Right));
 
-         when Iir_Kind_Type_Conversion =>
+         when Iir_Kind_Type_Conversion
+           | Iir_Kind_Qualified_Expression =>
             return Are_Trees_Equal (Get_Type_Mark (Left),
                                     Get_Type_Mark (Right))
               and then
-- 
cgit v1.2.3