RiscV-Formal/hs/Fetch.hs

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE NumericUnderscores #-}

module Fetch(fetchInstruction) where

import Clash.Prelude
import Types(Mem, Addr, Insn)
import Util(endianSwapWord)

data FetchResult  = Instruction Insn
                  | Misaligned Addr

fetchInstruction :: KnownNat n => Mem n -> Addr -> FetchResult
fetchInstruction mem addr =
  let
    isWordAligned = addr .&. 3 == 0
    addrWordAligned = addr `shiftR` 2
    insn = mem !! addrWordAligned
    -- TODO : check if instruction is word aligned and create type
    -- to capture if its not.
  in
    case isWordAligned of
      True -> Instruction insn
      False -> Misaligned addr