add runMode flag on EmuState

zhensydow · Apr 10, 2012 · d16e791 · d16e791
1 parent b2aaaef
commit d16e791
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/ZDCpu16/EmuState.hs b/src/ZDCpu16/EmuState.hs
@@ -26,10 +26,11 @@ import ZDCpu16.Hardware( DCPU_16(..), initialDCPU )
 data EmuState = EmuState
                 { emuCpu :: ! DCPU_16
                 , cycles :: ! Integer 
+                , runMode :: ! Bool
                 , conComm :: ! Connection }
 
 -- -----------------------------------------------------------------------------
 mkEmuState :: Connection -> EmuState
-mkEmuState = EmuState initialDCPU 0
+mkEmuState = EmuState initialDCPU 0 False
 
 -- -----------------------------------------------------------------------------