1 files changed, 8 insertions, 0 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb
index 48a0114b3..d7af882b5 100644
--- a/src/synth/synth-context.adb
+++ b/src/synth/synth-context.adb
@@ -436,6 +436,14 @@ package body Synth.Context is
                Build (Build_Context, C, Res);
                return Res;
             end;
+         when Value_Alias =>
+            declare
+               Res : Net;
+            begin
+               Res := Get_Current_Value (Build_Context, Val.A_Wid);
+               return Build_Extract (Build_Context, Res, Val.A_Off,
+                                     Get_Type_Width (Val.Typ));
+            end;
          when others =>
             raise Internal_Error;
       end case;