Browse files

add runMode flag on EmuState

  • Loading branch information...
1 parent b2aaaef commit d16e7911e93b486080c1484893777b97c931a5e7 @zhensydow committed Apr 10, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/ZDCpu16/EmuState.hs
View
3 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
-- -----------------------------------------------------------------------------

0 comments on commit d16e791

Please sign in to comment.