where insertLabels :: [Dis.Instruction] -> CodeGen e s [Dis.Instruction]
insertLabels = liftM concat . mapM ins
ins :: Dis.Instruction -> CodeGen e s [Dis.Instruction]
where insertLabels :: [Dis.Instruction] -> CodeGen e s [Dis.Instruction]
insertLabels = liftM concat . mapM ins
ins :: Dis.Instruction -> CodeGen e s [Dis.Instruction]
do state <- getInternalState
let allLabs = Map.toList (definedLabels state)
labs = filter (\ (_, (buf, ofs, _)) -> fromIntegral (ptrToWordPtr (buf `plusPtr` ofs)) == addr) allLabs
do state <- getInternalState
let allLabs = Map.toList (definedLabels state)
labs = filter (\ (_, (buf, ofs, _)) -> fromIntegral (ptrToWordPtr (buf `plusPtr` ofs)) == addr) allLabs