replace/update relevant fetch types and functions

hs/Simulation.hs

@@ -19,7 +19,7 @@ import Bus(Peripherals(..))
 import Cpu(
   RISCVCPU(..),
   riscvCPUInit)
-import Fetch(fetchInstruction, FetchResult (Instruction, Misaligned), fetchInstruction1, FetchResult1(..))
+import Fetch(fetchInstruction, FetchResult (..))
 import Isa.Decode(decode)
 
 import Debug.Trace
@@ -40,31 +40,10 @@ data Machine = Machine
   }
   deriving (Generic, Show, Eq, NFDataX)
 
-machine' :: Machine -> Machine
-machine' machine =
-  let
-    machinePeripherals  = peripherals machine
-    machineMem  = ram $ machinePeripherals
-    machineCPU  = cpu machine
-    machinePC   = pc machineCPU
-    cpu' = machineCPU { pc = machinePC + 4 }
-
-  in
-    case (fetchInstruction machineMem machinePC) of
-      Instruction insn ->
-        let binaryInsn = show (bitCoerce insn :: BitVector 32)
-        in trace ("Decoded instruction: " P.++ show opcode
-                  P.++ " | Binary: " P.++ binaryInsn
-                  P.++ " (" P.++ show insn P.++ ")") $
-           machine { cpu = cpu' }
-        where
-          opcode = decode insn
-      Misaligned addr -> undefined
-
-debugInsn :: FetchResult1 -> String
+debugInsn :: FetchResult -> String
 debugInsn fetchResult = 
   case fetchResult of
-    Instruction1 insn ->
+    Instruction insn ->
       "Decoded instruction: " P.++ show opcode
                       P.++ " | Binary: " P.++ binaryInsn
                       P.++ " (" P.++ show insn P.++ ")"
@@ -76,15 +55,13 @@ debugInsn fetchResult =
 simulationLoop :: Int -> Machine -> IO [Machine]
 simulationLoop 0 machine = return [machine]
 simulationLoop n machine = do
-  -- let newState = machine' machine
   let machinePeripherals = peripherals machine
       currPc = pc $ cpu machine
-  fetchResult <- fetchInstruction1 machinePeripherals currPc
+  fetchResult <- fetchInstruction machinePeripherals currPc
   putStrLn $ debugInsn fetchResult
   let pc' = currPc + 4
       cpu' = (cpu machine) { pc = pc' }
       machine' = machine { cpu = cpu' }
-  -- let machine' = machine { cpu = cpu $ machine { pc = pc $ cpu machine + 4 } }
   rest <- simulationLoop (n - 1) machine'
   return (machine : rest)