Remove some tracing

macaw-ppc/src/Data/Macaw/PPC/Disassemble.hs

@@ -24,7 +24,6 @@ import qualified Data.Sequence as Seq
 import qualified Data.Text as T
 import           Data.Word ( Word64 )
 import           Text.Printf ( printf )
-import           Debug.Trace
 
 import qualified Dismantle.PPC as D
 
@@ -105,7 +104,7 @@ disassembleBlock lookupSemantics mem gs curIPAddr maxOffset = do
   case readInstruction mem curIPAddr of
     Left err -> failAt gs off curIPAddr (DecodeError err)
     Right (i, bytesRead) -> do
-      traceM ("II: " ++ show i)
+--      traceM ("II: " ++ show i)
       let nextIPOffset = off + bytesRead
           nextIP = MM.relativeAddr seg nextIPOffset
           nextIPVal = MC.RelocatableValue (pointerNatRepr (Proxy @ppc)) nextIP

macaw-ppc/src/Data/Macaw/PPC/Identify.hs

@@ -15,8 +15,6 @@ import           Data.Macaw.SemMC.Simplify ( simplifyValue )
 import           Data.Macaw.PPC.Arch
 import           Data.Macaw.PPC.PPCReg
 
-import           Debug.Trace (trace)
-
 -- | Our current heuristic is that we are issuing a (potentially conditional)
 -- call if we see an address in the link register.
 --
@@ -31,7 +29,6 @@ identifyCall :: (PPCArchConstraints ppc)
              -> MC.RegState (MC.ArchReg ppc) (MC.Value ppc ids)
              -> Maybe (Seq.Seq (MC.Stmt ppc ids), MC.ArchSegmentOff ppc)
 identifyCall _ mem stmts0 rs
-  | trace ("Identify call: " ++ unlines (map show stmts0)) False = undefined
   | not (null stmts0)
   , MC.RelocatableValue {} <- rs ^. MC.boundValue PPC_LNK
   , Just retVal <- simplifyValue (rs ^. MC.boundValue PPC_LNK)