From 2fec6e70b2b583299bcbbda0b596a5a9c275e93e Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 13 May 2024 03:39:51 -0400
Subject: fig-emulator-gb: Debugging the PPU

---
 fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs')

diff --git a/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs b/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs
index 651b27b..26a00de 100644
--- a/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs
+++ b/fig-emulator-gb/src/Fig/Emulator/GB/CPU.hs
@@ -110,6 +110,7 @@ updateComps t = do
 
 decode :: Emulating Instruction
 decode = do
+  updateComps 4
   b <- use bus
   pc <- use $ regs . regPC
   lastPC .= pc
@@ -126,6 +127,7 @@ cond CondC = use (regs . regFlagC)
 
 read8 :: Addr -> Emulating Word8
 read8 a = do
+  updateComps 4
   b <- use bus
   pc <- use lastPC
   ins <- use lastIns
@@ -149,6 +151,7 @@ read16 a = do
 
 write8 :: Addr -> Word8 -> Emulating ()
 write8 a v = do
+  updateComps 4
   b <- use bus
   b' <- liftIO $ Bus.write b a v
   bus .= b'
@@ -677,7 +680,6 @@ step ins = do
     CbSetB3R8 (B3 idx) r -> {-# SCC "CbSetB3R8" #-} do
       v <- r8 r
       setR8 r $ v .|. shiftL 0b1 idx
-  updateComps 4
   where
     unimplemented :: Emulating ()
     unimplemented = do
-- 
cgit v1.2.3