diff options
Diffstat (limited to 'src/synth/synth-context.adb')
-rw-r--r-- | src/synth/synth-context.adb | 8 |
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; |