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