Shift.hs

module Core.Shift where

import CLaSH.Prelude
import CLaSH.Signal
import CLaSH.Sized.BitVector
import Data.Word
import Data.Bits

type Word256 = BitVector 256

shiftT :: Word256 -> Word256 -> (Word256, Word256)
shiftT _ inp = (0, shiftL inp 32)

{-# ANN topEntity
  (defTop
    { t_name     = "core_shift"
    , t_inputs   = ["input"]
    , t_outputs  = ["shifted"]
    , t_extraIn  = [ ("CLOCK_100", 1)
                   ]
    , t_clocks   = [ clockWizard "clkwiz100" "CLOCK_100(0)" "" ]
    }) #-}
topEntity :: Signal Word256 -> Signal Word256
topEntity = mealy shiftT 0