diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-06 06:06:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-06 06:06:55 +0200 |
| commit | c7d8f9e27b8fa97a76a0bd638f300197823771ad (patch) | |
| tree | b4a7221eb585562dee99365d2ed3422616211a7c /src/vhdl/vhdl-sem.adb | |
| parent | 176b14533bc79196985f17ac8afe11a8ab16131d (diff) | |
| download | ghdl-c7d8f9e27b8fa97a76a0bd638f300197823771ad.tar.gz ghdl-c7d8f9e27b8fa97a76a0bd638f300197823771ad.tar.bz2 ghdl-c7d8f9e27b8fa97a76a0bd638f300197823771ad.zip | |
vhdl-sem.adb(are_trees_equal): handle selected element. Fix #2050
Diffstat (limited to 'src/vhdl/vhdl-sem.adb')
| -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 aed94e118..ce0428476 100644 --- a/src/vhdl/vhdl-sem.adb +++ b/src/vhdl/vhdl-sem.adb @@ -1584,6 +1584,10 @@ package body Vhdl.Sem is Get_Prefix (Right)) and then Are_Trees_Equal (Get_Suffix (Left), Get_Suffix (Right)); + when Iir_Kind_Selected_Element => + return Are_Trees_Equal (Get_Prefix (Left), + Get_Prefix (Right)) + and then Get_Identifier (Left) = Get_Identifier (Right); when Iir_Kind_Access_Type_Definition | Iir_Kind_Record_Type_Definition |