[Git][ghc/ghc][wip/T24634-oneshot-bytecode] try without forced dynamic

[Torsten Schmits (@torsten.schmits)]

Torsten Schmits pushed to branch wip/T24634-oneshot-bytecode at Glasgow Haskell Compiler / GHC


Commits:
c26c2ed7 by Torsten Schmits at 2024-07-31T16:59:26+02:00
try without forced dynamic

- - - - -


1 changed file:

- compiler/GHC/Driver/Pipeline/Execute.hs


Changes:

=====================================
compiler/GHC/Driver/Pipeline/Execute.hs
=====================================
@@ -587,12 +587,9 @@ runHscBackendPhase pipe_env hsc_env mod_name src_flavour location result = do
               -- When compiling with -fprefer-byte-code, always
               -- compile foreign stubs as shared objects to ensure
               -- they can be properly loaded.
-              let hsc_env_stub
-                    | gopt Opt_WriteIfSimplifiedCore dflags = hscUpdateFlags setDynamicNow hsc_env
-                    | otherwise = hsc_env
-              stub_o <- mapM (compileStub hsc_env_stub) mStub
+              stub_o <- mapM (compileStub hsc_env) mStub
               foreign_os <-
-                mapM (uncurry (compileForeign hsc_env_stub)) foreign_files
+                mapM (uncurry (compileForeign hsc_env)) foreign_files
               let fos = maybe [] return stub_o ++ foreign_os
                   iface_fos
                     | gopt Opt_WriteIfSimplifiedCore dflags = fos



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c26c2ed7428e815d43ce21c414cdb77779cb413d

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c26c2ed7428e815d43ce21c414cdb77779cb413d
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240731/d8cfdf21/attachment.html>