Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve error message on MiMa abort

Browse source
This commit is contained in:
Joscha 2019-11-13 15:22:49 +00:00
parent 02e23e7d4a
commit f75c3368bb
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Mima/State.hs
View file

@ -84,10 +84,10 @@ data AbortReason
instance ToText AbortReason where instance ToText AbortReason where
toText Halted = "Halted" toText Halted = "Halted"
toText (InvalidInstruction t) = "Invalid instruction: " <> t toText (InvalidInstruction t) = "Exception: Invalid instruction: " <> t
toText InvalidNextIarAddress = "Can't increment IAR: Invalid next address" toText InvalidNextIarAddress = "Exception: Can't increment IAR: Invalid next address"
toText AddressNotExecutable = "Address is not flagged as excutable" toText AddressNotExecutable = "Exception: Address is not flagged as excutable"
toText AddressReadOnly = "Address is flagged as read-only" toText AddressReadOnly = "Exception: Address is flagged as read-only"
{- A fancy monad that helps with stepping the MimaState -} {- A fancy monad that helps with stepping the MimaState -}