<+> text "...")
-- Don't showPass in Batch mode; doLink will do that for us.
- staticLink dflags obj_files pkg_deps
+ let link = case ghcLink dflags of
+ MkDLL -> doMkDLL
+ StaticLink -> staticLink
+ link dflags obj_files pkg_deps
debugTraceMsg dflags 3 (text "link: done")
let excessPrecision = dopt Opt_ExcessPrecision dflags
+ let cc_opt | optLevel dflags >= 2 = "-O2"
+ | otherwise = "-O"
+
-- Decide next phase
let mangle = dopt Opt_DoAsmMangling dflags
++ (if hcc
then more_hcc_opts
else [])
- ++ [ verb, "-S", "-Wimplicit", "-O" ]
+ ++ [ verb, "-S", "-Wimplicit", cc_opt ]
++ [ "-D__GLASGOW_HASKELL__="++cProjectVersionInt ]
++ cc_opts
++ split_opt
| otherwise -> return []
getOptionsFromStringBuffer :: StringBuffer -> FilePath -> [(Int,String)]
-getOptionsFromStringBuffer buffer@(StringBuffer _ len# _) fn =
+getOptionsFromStringBuffer buffer@(StringBuffer _ len _) fn =
let
- ls = lines (lexemeToString buffer (I# len#)) -- lazy, so it's ok
+ ls = lines (lexemeToString buffer len) -- lazy, so it's ok
in
look 1 ls
where