diff options
Diffstat (limited to 'compiler/main/CodeOutput.hs')
| -rw-r--r-- | compiler/main/CodeOutput.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/main/CodeOutput.hs b/compiler/main/CodeOutput.hs index 01d714d57a..6b70366f45 100644 --- a/compiler/main/CodeOutput.hs +++ b/compiler/main/CodeOutput.hs @@ -176,11 +176,9 @@ outputAsm dflags this_mod location filenm cmm_stream outputLlvm :: DynFlags -> FilePath -> Stream IO RawCmmGroup a -> IO a outputLlvm dflags filenm cmm_stream - = do ncg_uniqs <- mkSplitUniqSupply 'n' - - {-# SCC "llvm_output" #-} doOutput filenm $ + = do {-# SCC "llvm_output" #-} doOutput filenm $ \f -> {-# SCC "llvm_CodeGen" #-} - llvmCodeGen dflags f ncg_uniqs cmm_stream + llvmCodeGen dflags f cmm_stream {- ************************************************************************ @@ -262,4 +260,3 @@ outputForeignStubs_help _fname "" _header _footer = return False outputForeignStubs_help fname doc_str header footer = do writeFile fname (header ++ doc_str ++ '\n':footer ++ "\n") return True - |