+ in do
+ bufh <- newBufHandle h
+ Prt.bufLeftRender bufh $ pprLlvmHeader
+ ver <- (fromMaybe defaultLlvmVersion) `fmap` figureLlvmVersion dflags
+
+ env' <- cmmDataLlvmGens dflags bufh (setLlvmVer ver env) cdata []
+ cmmProcLlvmGens dflags bufh us env' cmm 1 []
+
+ bFlush bufh
+ return ()