diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-09-28 23:20:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-09-28 23:20:31 +0200 |
| commit | 8965ce200b899a43125909bcdac4aceba9dee53d (patch) | |
| tree | 792d7f211a3e9f8edc7d3f34e79b7358f480fa82 | |
| parent | 33c75c4c819313575ee20a234658da32e97a9cf1 (diff) | |
| download | ghdl-8965ce200b899a43125909bcdac4aceba9dee53d.tar.gz ghdl-8965ce200b899a43125909bcdac4aceba9dee53d.tar.bz2 ghdl-8965ce200b899a43125909bcdac4aceba9dee53d.zip | |
synth: add support of alias of alias. Fix #945
| -rw-r--r-- | src/synth/synth-stmts.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index bcc038180..f1cb13d2c 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -137,6 +137,14 @@ package body Synth.Stmts is Dest_Off := 0; Dest_Type := Targ.Typ; end; + when Iir_Kind_Object_Alias_Declaration => + declare + Targ : constant Value_Acc := Get_Value (Syn_Inst, Pfx); + begin + Dest_Wid := Targ.A_Wid; + Dest_Off := Targ.A_Off; + Dest_Type := Targ.Typ; + end; when Iir_Kind_Indexed_Name => declare Voff : Net; |