From 8965ce200b899a43125909bcdac4aceba9dee53d Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 28 Sep 2019 23:20:31 +0200
Subject: synth: add support of alias of alias.  Fix #945

---
 src/synth/synth-stmts.adb | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/synth')

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;
-- 
cgit v1.2.3