From 6949d66c042df3a848fb9759604494f306903d20 Mon Sep 17 00:00:00 2001 From: Clemens Fruhwirth Date: Fri, 3 Oct 2008 18:53:04 +0000 Subject: [PATCH] No AutoLinkPackages for dynamic library linking --- compiler/main/Packages.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs index ce3c064..c5784ce 100644 --- a/compiler/main/Packages.lhs +++ b/compiler/main/Packages.lhs @@ -37,7 +37,7 @@ where import PackageConfig import ParsePkgConf ( loadPackageConfig ) -import DynFlags ( dopt, DynFlag(..), DynFlags(..), PackageFlag(..) ) +import DynFlags ( dopt, DynFlag(..), DynFlags(..), PackageFlag(..), GhcLink(..) ) import StaticFlags ( opt_Static ) import Config ( cProjectVersion ) import Name ( Name, nameModule_maybe ) @@ -563,7 +563,7 @@ mkPackageState dflags orig_pkg_db preload0 this_package = do -- add base & rts to the preload packages basicLinkedPackages - | dopt Opt_AutoLinkPackages dflags + | dopt Opt_AutoLinkPackages dflags && (ghcLink dflags) /= LinkDynLib = filter (flip elemUFM pkg_db) [basePackageId, rtsPackageId] | otherwise = [] -- but in any case remove the current package from the set of -- 1.7.10.4