Add a comment to setRegVal

This commit is contained in:
Tristan Ravitch 2018-03-29 10:01:06 -07:00
parent 1ebf0cabb7
commit 13c202f966

View File

@ -162,6 +162,9 @@ blockState = lens _blockState (\s v -> s { _blockState = v })
curRegState :: Simple Lens (GenState arch ids s) (RegState (ArchReg arch) (Value arch ids))
curRegState = blockState . pBlockState
-- | Update the value of a machine register (in the 'Generator' state) with a
-- new macaw 'Value'. This function applies a simplifier ('simplifyValue') to
-- the value first, if possible.
setRegVal :: (OrdF (ArchReg arch), MM.MemWidth (RegAddrWidth (ArchReg arch)))
=> ArchReg arch tp
-> Value arch ids tp