mkCmmIfThen :: CmmExpr -> CmmAGraph -> FCode CmmAGraph
mkCmmIfThen e tbranch = do
  endif <- newLabelC
  tid   <- newLabelC
  tscp  <- getTickScope
  return $ catAGraphs [ mkCbranch e tid endif Nothing
                      , mkLabel tid tscp, tbranch, mkLabel endif tscp ]
mkCmmIfThen :: CmmExpr -> CmmAGraph -> FCode CmmAGraph
mkCmmIfThen e tbranch = do
  endif <- newLabelC
  tid   <- newLabelC
  tscp  <- getTickScope
  return $ catAGraphs [ mkCbranch e tid endif Nothing
                      , mkLabel tid tscp, tbranch, mkLabel endif tscp ]
mkCmmIfThen e tbranch = do
  endif <- newLabelC
  tid   <- newLabelC
  tscp  <- getTickScope
  return $ catAGraphs [ mkCbranch e tid endif Nothing
                      , mkLabel tid tscp, tbranch, mkLabel endif tscp ]