Fix build by adding part of another upstream commit.

This commit is contained in:
kili 2022-09-02 18:31:16 +00:00
parent bb44e53fca
commit 44f9ae568f

View File

@ -1,5 +1,6 @@
Collected c41c478eb9003eaa9fc8081a0039652448124f5d out of ghc
repository to be removed in ghc 9.4 era.
Collected c41c478eb9003eaa9fc8081a0039652448124f5d (and a bit
6563cd2473a309b135eb8f950adf28b9f3d8e5c2) out of ghc repository
to be removed in ghc 9.4 era.
Index: compiler/GHC/Linker/Loader.hs
--- compiler/GHC/Linker/Loader.hs.orig
@ -18,7 +19,7 @@ Index: compiler/GHC/Linker/Loader.hs
+-- #if-guard the following equations otherwise the pattern match checker will
+-- complain that they are redundant.
+#if defined(HAVE_INTERNAL_INTERPRETER)
+checkNonStdWay dflags InternalInterp srcspan
+checkNonStdWay dflags _interp srcspan
| hostFullWays == targetFullWays = return Nothing
-- Only if we are compiling with the same ways as GHC is built
-- with, can we dynamically load those object files. (see #3604)