#ifdef JAVA
import JavaGen ( javaGen )
-import OccurAnal ( occurAnalyseBinds )
import qualified PrintJava
import OccurAnal ( occurAnalyseBinds )
#endif
import PprC ( writeCs )
import CmmLint ( cmmLint )
import Packages
-import DriverUtil ( filenameOf )
+import Util ( filenameOf )
import FastString ( unpackFS )
import Cmm ( Cmm )
import HscTypes
-import CmdLineOpts
+import DynFlags
import ErrUtils ( dumpIfSet_dyn, showPass, ghcExit )
import Outputable
import Pretty ( Mode(..), printDoc )
}
; showPass dflags "CodeOutput"
- ; let filenm = dopt_OutName dflags
+ ; let filenm = hscOutName dflags
; stubs_exist <- outputForeignStubs dflags foreign_stubs
- ; case dopt_HscLang dflags of {
+ ; case hscTarget dflags of {
HscInterpreted -> return ();
HscAsm -> outputAsm dflags filenm flat_abstractC;
HscC -> outputC dflags filenm flat_abstractC stubs_exist
hPutStr h cc_injects
when stub_h_exists $
hPutStrLn h ("#include \"" ++ (filenameOf (hscStubHOutName dflags)) ++ "\"")
- writeCs h flat_absC
+ writeCs dflags h flat_absC
\end{code}
-- we need the #includes from the rts package for the stub files
let rtsid = rtsPackageId (pkgState dflags)
rts_includes
- | Just pid <- rtsid =
+ | ExtPackage pid <- rtsid =
let rts_pkg = getPackageDetails (pkgState dflags) pid in
concatMap mk_include (includes rts_pkg)
| otherwise = []