diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-10-08 10:40:09 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-10-08 10:40:09 +0200 |
commit | 6701cd2f930da2df4a4922d7aecfa46659bbb223 (patch) | |
tree | b57927becb41cb453b8aa7916865a609b05841c3 | |
parent | ec96ff4b982030c779f8a4cb3d2642734605eb8d (diff) | |
download | ghdl-6701cd2f930da2df4a4922d7aecfa46659bbb223.tar.gz ghdl-6701cd2f930da2df4a4922d7aecfa46659bbb223.tar.bz2 ghdl-6701cd2f930da2df4a4922d7aecfa46659bbb223.zip |
vhdl-sem.adb(are_trees_equal): handle parenthesis expressions.
Fix #2209
-rw-r--r-- | src/vhdl/vhdl-sem.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem.adb b/src/vhdl/vhdl-sem.adb index 4273e447a..220a223bb 100644 --- a/src/vhdl/vhdl-sem.adb +++ b/src/vhdl/vhdl-sem.adb @@ -1591,6 +1591,10 @@ package body Vhdl.Sem is Get_Prefix (Right)) and then Get_Identifier (Left) = Get_Identifier (Right); + when Iir_Kind_Parenthesis_Expression => + return 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 |