are_trees_equal: handle type_conversion.

Fix #223

1 files changed, 15 insertions, 0 deletions

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index 39916bb76..81fb79ccc 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -1485,6 +1485,21 @@ package body Sem is
               Are_Trees_Chain_Equal (Get_Parameter_Association_Chain (Left),
                                      Get_Parameter_Association_Chain (Right));
 
+         when Iir_Kind_Association_Element_By_Expression =>
+            return Are_Trees_Equal (Get_Actual (Left), Get_Actual (Right))
+              and then Are_Trees_Equal (Get_Formal (Left), Get_Formal (Right))
+              and then Are_Trees_Equal (Get_In_Conversion (Left),
+                                        Get_In_Conversion (Right))
+              and then Are_Trees_Equal (Get_Out_Conversion (Left),
+                                        Get_Out_Conversion (Right));
+
+         when Iir_Kind_Type_Conversion =>
+            return Are_Trees_Equal (Get_Type_Mark (Left),
+                                    Get_Type_Mark (Right))
+              and then
+              Are_Trees_Equal (Get_Expression (Left),
+                               Get_Expression (Right));
+
          when Iir_Kind_Access_Type_Definition
            | Iir_Kind_Record_Type_Definition
            | Iir_Kind_Array_Type_Definition