diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-01-13 19:10:40 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-01-13 19:10:40 +0100 |
| commit | e9bbdaaef2b3fec0d9843db4f3aaac741641e279 (patch) | |
| tree | 05f0029229f4b69d8bfc7b551413660c4d824457 /src/synth/synth-expr.adb | |
| parent | e9c0d7658959eeed1e2317e36cc8efd0b19b3fb9 (diff) | |
| download | ghdl-e9bbdaaef2b3fec0d9843db4f3aaac741641e279.tar.gz ghdl-e9bbdaaef2b3fec0d9843db4f3aaac741641e279.tar.bz2 ghdl-e9bbdaaef2b3fec0d9843db4f3aaac741641e279.zip | |
synth: improve support for expanded names. For #1090
Diffstat (limited to 'src/synth/synth-expr.adb')
| -rw-r--r-- | src/synth/synth-expr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 781bc704d..e5f72e8fa 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -972,7 +972,8 @@ package body Synth.Expr is return Value_Acc is begin case Get_Kind (Name) is - when Iir_Kind_Simple_Name => + when Iir_Kind_Simple_Name + | Iir_Kind_Selected_Name => return Synth_Name (Syn_Inst, Get_Named_Entity (Name)); when Iir_Kind_Interface_Signal_Declaration | Iir_Kind_Variable_Declaration @@ -1764,6 +1765,7 @@ package body Synth.Expr is end if; end; when Iir_Kind_Simple_Name + | Iir_Kind_Selected_Name | Iir_Kind_Interface_Signal_Declaration -- For PSL. | Iir_Kind_Signal_Declaration => -- For PSL. return Synth_Name (Syn_Inst, Expr); |