CmmLayoutStack: Minor simplification
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Thu, 4 Aug 2016 10:10:41 +0000 (10:10 +0000)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Thu, 4 Aug 2016 10:10:41 +0000 (10:10 +0000)
compiler/cmm/CmmLayoutStack.hs

index 37bd7a0..2536030 100644 (file)
@@ -190,11 +190,11 @@ instance Outputable StackMap where
 cmmLayoutStack :: DynFlags -> ProcPointSet -> ByteOff -> CmmGraph
                -> UniqSM (CmmGraph, BlockEnv StackMap)
 cmmLayoutStack dflags procpoints entry_args
-               graph0@(CmmGraph { g_entry = entry })
+               graph@(CmmGraph { g_entry = entry })
   = do
     -- We need liveness info. Dead assignments are removed later
     -- by the sinking pass.
-    let (graph, liveness) = (graph0, cmmLocalLiveness dflags graph0)
+    let liveness = cmmLocalLiveness dflags graph
         blocks = postorderDfs graph
 
     (final_stackmaps, _final_high_sp, new_blocks) <-