- do stub_names <- outputForeignStubs c_code h_code
- case dopt_HscLang dflags of
- HscInterpreter -> return stub_names
- HscAsm filenm -> outputAsm dflags filenm flat_abstractC ncg_uniqs
- >> return stub_names
- HscC filenm -> outputC dflags filenm flat_abstractC
- >> return stub_names
- HscJava filenm -> outputJava dflags filenm mod_name tycons core_binds
- >> return stub_names
-
-doOutput :: (Handle -> IO ()) -> IO ()
+ do { showPass dflags "CodeOutput"
+ ; let filenm = dopt_OutName dflags
+ ; stub_names <- outputForeignStubs dflags c_code h_code
+ ; case dopt_HscLang dflags of
+ HscInterpreted -> return stub_names
+ HscAsm -> outputAsm dflags filenm flat_abstractC
+ >> return stub_names
+ HscC -> outputC dflags filenm flat_abstractC stub_names
+ >> return stub_names
+ HscJava -> outputJava dflags filenm mod_name tycons core_binds
+ >> return stub_names
+ HscILX ->
+#ifdef ILX
+ outputIlx dflags filenm mod_name tycons stg_binds
+ >> return stub_names
+#else
+ panic "ILX support not compiled into this ghc"
+#endif
+ }
+
+doOutput :: String -> (Handle -> IO ()) -> IO ()