From b0082f134ff7f4226f99990778adce637b5b52f1 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 12 Dec 2016 20:21:58 +0100 Subject: are_trees_equal: handle type_conversion. Fix #223 --- src/vhdl/sem.adb | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'src') 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 -- cgit v1.2.3