Emulation/Stellarator
1
0
Fork 0
mirror of https://github.com/dpiponi/Stellarator.git synced 2024-06-13 01:27:25 -04:00
Code Issues Packages Projects Releases Wiki Activity

Reinstated debugger, but note UI events may start piling up in queue

Browse source
This commit is contained in:
Dan Piponi 2019-05-26 11:27:16 -07:00
parent ba04d964a2
commit 10a7d8b344
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Events.hs
View file

@ -125,16 +125,14 @@ handleKey atariKeys motion key = do
GameReset -> modify swchb $ bitAt 0 .~ not pressed
DumpState -> Emulation.dumpState
GameQuit -> liftIO $ exitSuccess
{- XXX Need to come back here!
EnterDebugger -> when pressed $ do
-- Throw away SDL events
-- Rewrite as a withXXX XXX
t <- liftIO $ forkIO $ let spin = SDL.pollEvents >> spin in spin
-- t <- liftIO $ forkIO $ let spin = SDL.pollEvents >> spin in spin
Emulation.dumpState
runDebugger
liftIO $ killThread t
-- liftIO $ killThread t
resetNextFrame
-}
DebugMode -> when pressed $ do
modify debugColours not
debugMode <- load debugColours