x86: Make the test suite more verbose on translation errors

This makes debugging easier
This commit is contained in:
Tristan Ravitch 2018-10-24 10:22:21 -07:00
parent 563547fee5
commit cc165d7316

View File

@ -96,7 +96,7 @@ testDiscovery expectedFilename elf =
unless (S.member addr ignoredBlocks) $ do
let term = blockTerminator pb
T.assertBool ("Unclassified block at " ++ show (MD.pblockAddr pb)) (not (isClassifyFailure term))
T.assertBool ("Translate error at " ++ show (MD.pblockAddr pb)) (not (isTranslateError term))
T.assertBool ("Translate error at " ++ show (MD.pblockAddr pb) ++ " " ++ show term) (not (isTranslateError term))
let actualEntry = MD.discoveredFunAddr dfi
-- actualEntry = fromIntegral (MM.addrValue (MD.discoveredFunAddr dfi))
let actualBlockStarts = S.fromList [ (addr, toInteger (MD.blockSize pbr))