diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-07-02 18:32:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-07-02 18:32:31 +0200 |
| commit | b8c3a3c6d2250ebdf3216d9559caad54eb01d279 (patch) | |
| tree | 41626895d8d961d50761b0f901dfe997821b74be /src/vhdl/vhdl-sem.adb | |
| parent | 78e9cd6007b2dafc8931f3bbf51d84ec997da905 (diff) | |
| download | ghdl-b8c3a3c6d2250ebdf3216d9559caad54eb01d279.tar.gz ghdl-b8c3a3c6d2250ebdf3216d9559caad54eb01d279.tar.bz2 ghdl-b8c3a3c6d2250ebdf3216d9559caad54eb01d279.zip | |
vhdl-sem: handle array attributes in are_trees_equal.
Diffstat (limited to 'src/vhdl/vhdl-sem.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem.adb | 10 |
1 files changed, 10 insertions, 0 deletions
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; |