diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-07-15 19:17:47 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-07-15 19:17:47 +0100 |
commit | c0983869b3e3ed3da8ed0f1128f7589d7c2ad91e (patch) | |
tree | 3b73722d2034ecfe4fd61da5c735198cb1c16eef | |
parent | fb4f0363ed53ade7ea2270af4368188537aa6b0c (diff) | |
download | haskell-c0983869b3e3ed3da8ed0f1128f7589d7c2ad91e.tar.gz |
move
-rw-r--r-- | compiler/GHC/Driver/Main.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs index f30a09a6af..6471efe2af 100644 --- a/compiler/GHC/Driver/Main.hs +++ b/compiler/GHC/Driver/Main.hs @@ -1612,7 +1612,6 @@ hscGenHardCode hsc_env cgguts location output_filename = do | sccProfilingEnabled dflags = profilingInitCode platform this_mod cost_centre_info | otherwise = mempty - spt_init_code = sptModuleInitCode platform this_mod spt_entries ------------------ Code generation ------------------ -- The back-end is streamed: each top-level function goes @@ -1642,7 +1641,6 @@ hscGenHardCode hsc_env cgguts location output_filename = do let foreign_stubs st = foreign_stubs0 `appendStubC` prof_init `appendStubC` cgIPEStub st - `appendStubC` spt_init_code (output_filename, (_stub_h_exists, stub_c_exists), foreign_fps, cg_infos) <- {-# SCC "codeOutput" #-} |