From 7e77131440115c10cf3b7d3b14b1cce57a5dc21f Mon Sep 17 00:00:00 2001 From: Adam Sandberg Ericsson Date: Fri, 5 Nov 2021 18:04:24 +0000 Subject: poc for static ghc but loading dynlibs --- compiler/GHC/Linker/Loader.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/GHC/Linker/Loader.hs b/compiler/GHC/Linker/Loader.hs index 2af6f4dfe1..a512fa9a89 100644 --- a/compiler/GHC/Linker/Loader.hs +++ b/compiler/GHC/Linker/Loader.hs @@ -1228,6 +1228,7 @@ unload_wkr interp keep_linkables pls@LoaderState{..} = do partOfGHCi :: [PackageName] partOfGHCi | isWindowsHost || isDarwinHost = [] + | True = [] | otherwise = map (PackageName . mkFastString) ["base", "template-haskell", "editline"] @@ -1292,7 +1293,7 @@ loadPackage interp hsc_env pkg let logger = hsc_logger hsc_env platform = targetPlatform dflags is_dyn = interpreterDynamic interp - dirs | is_dyn = map ST.unpack $ Packages.unitLibraryDynDirs pkg + dirs | True || is_dyn = map ST.unpack $ Packages.unitLibraryDynDirs pkg | otherwise = map ST.unpack $ Packages.unitLibraryDirs pkg let hs_libs = map ST.unpack $ Packages.unitLibraries pkg @@ -1511,7 +1512,7 @@ locateLib interp hsc_env is_hs lib_dirs gcc_dirs lib tryGcc `orElse` assumeDll - | loading_dynamic_hs_libs -- search for .so libraries first. + | True || loading_dynamic_hs_libs -- search for .so libraries first. = findHSDll `orElse` findDynObject `orElse` assumeDll -- cgit v1.2.1