foreign_stubs dir_imps cost_centre_info
stg_binds hpc_info
------------------ Convert to CPS --------------------
- continuationC <- cmmCPS dflags abstractC
+ continuationC <- {-return abstractC-} cmmCPS dflags abstractC
------------------ Code output -----------------------
(stub_h_exists,stub_c_exists)
<- codeOutput dflags this_mod location foreign_stubs
case maybe_cmm of
Nothing -> return False
Just cmm -> do
- continuationC <- cmmCPS dflags [cmm]
+ continuationC <- {-return [cmm]-} cmmCPS dflags [cmm]
codeOutput dflags no_mod no_loc NoStubs [] continuationC
return True
where