aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-04-02 21:56:54 +0300
committerAleksey Veresov <aleksey@veresov.pro>2021-04-02 21:56:54 +0300
commit9dcc3abc60d591805f17b758dc579d4f8683f1fb (patch)
tree5595893555192132e47e1077145fb771a637e933 /src
parent1dfa268bb0cca6cf6fb0ffbfe331d84329aea534 (diff)
parenta3e6fcfea2a618eae036a6c882b1e272589b7860 (diff)
downloadsuem-9dcc3abc60d591805f17b758dc579d4f8683f1fb.tar
suem-9dcc3abc60d591805f17b758dc579d4f8683f1fb.tar.xz
suem-9dcc3abc60d591805f17b758dc579d4f8683f1fb.zip
Merge remote-tracking branch 'exegete/master'
Diffstat (limited to 'src')
-rw-r--r--src/Instructions.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Instructions.hs b/src/Instructions.hs
index 2243915..3ffbfc2 100644
--- a/src/Instructions.hs
+++ b/src/Instructions.hs
@@ -132,9 +132,8 @@ doRESET :: Emulator ()
doRESET = error "RESET"
doNOP :: Emulator ()
-doNOP = with pc $ \pc -> do
- pcval <- readIORef pc
- writeIORef pc (pcval + 2)
+doNOP = do
+ incPC
doSTOP :: Emulator ()
doSTOP = error "STOP"