From b8c3a3c6d2250ebdf3216d9559caad54eb01d279 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 2 Jul 2020 18:32:31 +0200 Subject: vhdl-sem: handle array attributes in are_trees_equal. --- src/vhdl/vhdl-sem.adb | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/vhdl/vhdl-sem.adb') diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb index 264cc6861..03351c914 100644 --- a/src/vhdl/vhdl-sem.adb +++ b/src/vhdl/vhdl-sem.adb @@ -1611,6 +1611,16 @@ package body Vhdl.Sem is | Iir_Kind_Ascending_Type_Attribute => return Are_Trees_Equal (Get_Prefix (Left), Get_Prefix (Right)); + when Iir_Kind_Length_Array_Attribute + | Iir_Kind_Left_Array_Attribute + | Iir_Kind_Right_Array_Attribute + | Iir_Kind_Low_Array_Attribute + | Iir_Kind_High_Array_Attribute + | Iir_Kind_Ascending_Array_Attribute => + return Are_Trees_Equal (Get_Prefix (Left), Get_Prefix (Right)) + and then + Are_Trees_Equal (Get_Parameter (Left), Get_Parameter (Right)); + when Iir_Kind_String_Literal8 => if Get_Bit_String_Base (Left) /= Get_Bit_String_Base (Right) then return False; -- cgit v1.2.3