Add barrel shifter

barrel_shifter.sv

@@ -0,0 +1,59 @@
+//------------------------------------------------------------------------------
+// barrel_shifter.sv
+// Konstantin Pavlov, pavlovconst@gmail.com
+//------------------------------------------------------------------------------
+
+// INFO -------------------------------------------------------------------------
+// Barrel shifter written in System Verilog
+//
+
+/* --- INSTANTIATION TEMPLATE BEGIN ---
+
+barrel_shifter #(
+  .DATA_W( 32 )
+) bs_inst (
+  .clk( clk ),
+  .nrst( nrst,),
+  .ena( 1'b1 ),
+  .l_nr( 1'b1 ),
+  .dst(  ),
+
+  .id( id[31:0] ),
+  .od( od[31:0] )
+);
+
+--- INSTANTIATION TEMPLATE END ---*/
+
+
+module barrel_shifter #( parameter
+  DATA_W = 32,
+  DIST_W = $clog2(DATA_W)
+)(
+  input clk,                        // clock
+  input nrst,                       // negative reset
+  input ena,                        // enable
+  input l_nr,                       // shift left or right
+  input [DIST_W-1:0] dst,           // shift distance in bits
+
+  input [DATA_W-1:0] id,            // input data vector
+  output logic [DATA_W-1:0] od = '0 // shifted data vector
+);
+
+  always_ff @(posedge clk) begin
+    if( ~nrst ) begin
+      od[DATA_W-1:0] <= '0;
+    end else begin
+      if( ena ) begin
+
+        if( l_nr ) begin
+          od[DATA_W-1:0] <= ({2{id[DATA_W-1:0]}} << dst[DIST_W-1:0]) >> DATA_W;
+        end else begin
+          od[DATA_W-1:0] <= {2{id[DATA_W-1:0]}} >> dst[DIST_W-1:0];
+        end // if l_nr
+
+      end // if ena
+    end // nrst
+  end
+
+endmodule
+