-----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.90 2003/02/04 15:09:40 simonpj Exp $
+-- $Id: DriverState.hs,v 1.95 2003/08/20 18:48:20 sof Exp $
--
-- Settings for the driver
--
GLOBAL_VAR(v_Static, True, Bool)
GLOBAL_VAR(v_NoLink, False, Bool)
GLOBAL_VAR(v_NoHsMain, False, Bool)
+GLOBAL_VAR(v_MainModIs, Nothing, Maybe String)
+GLOBAL_VAR(v_MainFunIs, Nothing, Maybe String)
GLOBAL_VAR(v_Recomp, True, Bool)
GLOBAL_VAR(v_Collect_ghc_timing, False, Bool)
GLOBAL_VAR(v_Do_asm_mangling, True, Bool)
hsc_minusO_flags =
[
"-fignore-asserts",
- "-ffoldr-build-on",
"-fdo-eta-reduction",
"-fdo-lambda-eta-expansion",
"-fcase-merge",
munge_paths = map munge_path
munge_path p
- | Just p' <- my_prefix_match "$libdir" p = top_dir ++ p'
- | otherwise = p
+ | Just p' <- maybePrefixMatch "$libdir" p = top_dir ++ p'
+ | otherwise = p
-- -----------------------------------------------------------------------------
-- earlier packages may depend on later ones, but not vice versa
GLOBAL_VAR(v_ExplicitPackages, initPackageList, [PackageName])
-initPackageList = [rtsPackage]
+initPackageList = [basePackage, rtsPackage]
+ -- basePackage is part of this list entirely because of
+ -- wired-in names in GHCi. See the notes on wired-in names in
+ -- Linker.linkExpr. By putting the base backage in initPackageList
+ -- we make sure that it'll always by linked.
+
-- add a package requested from the command-line
addPackage :: String -> IO ()
(WaySMP, Way "s" "SMP"
[ "-fsmp"
, "-optc-pthread"
+#ifndef freebsd_TARGET_OS
, "-optl-pthread"
+#endif
, "-optc-DSMP"
, "-fvia-C" ]),