aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/netlists-disp_vhdl.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/netlists-disp_vhdl.adb')
-rw-r--r--src/synth/netlists-disp_vhdl.adb4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/netlists-disp_vhdl.adb b/src/synth/netlists-disp_vhdl.adb
index f72defe4f..4681dabec 100644
--- a/src/synth/netlists-disp_vhdl.adb
+++ b/src/synth/netlists-disp_vhdl.adb
@@ -736,6 +736,10 @@ package body Netlists.Disp_Vhdl is
Put ((1 .. Natural (Ow - Iw) => '0'));
Disp_Template (""" & \i0; -- uext" & NL, Inst);
end;
+ when Id_Lsr =>
+ Disp_Template
+ (" \o0 <= std_logic_vector "
+ & "(shift_right (\ui0, to_integer(\ui1)));" & NL, Inst);
when Id_Red_Or =>
declare
Iw : constant Width := Get_Width (Get_Input_Net (Inst, 0));