diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-04-26 17:52:53 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-27 10:09:54 -0400 |
| commit | 5a7f0deee64f32777db8b87b056b4e9ba154093f (patch) | |
| tree | 2ca7fcd785c1a499bdfba7731ee865c8663d6da1 /compiler/GHC/Driver/Pipeline/Execute.hs | |
| parent | 4419dd3afe2de8b24d2dd10fe6b4c7370b861d6d (diff) | |
| download | haskell-5a7f0deee64f32777db8b87b056b4e9ba154093f.tar.gz | |
Give Cmm files fake ModuleNames which include full filepath
This fixes the initialisation functions when using -prof or
-finfo-table-map.
Fixes #21370
Diffstat (limited to 'compiler/GHC/Driver/Pipeline/Execute.hs')
| -rw-r--r-- | compiler/GHC/Driver/Pipeline/Execute.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Pipeline/Execute.hs b/compiler/GHC/Driver/Pipeline/Execute.hs index da214cdc20..4f2c30c5a7 100644 --- a/compiler/GHC/Driver/Pipeline/Execute.hs +++ b/compiler/GHC/Driver/Pipeline/Execute.hs @@ -128,7 +128,7 @@ runPhase (T_Cmm pipe_env hsc_env input_fn) = do let dflags = hsc_dflags hsc_env let next_phase = hscPostBackendPhase HsSrcFile (backend dflags) output_fn <- phaseOutputFilenameNew next_phase pipe_env hsc_env Nothing - mstub <- hscCompileCmmFile hsc_env input_fn output_fn + mstub <- hscCompileCmmFile hsc_env (src_filename pipe_env) input_fn output_fn stub_o <- mapM (compileStub hsc_env) mstub let foreign_os = maybeToList stub_o return (foreign_os, output_fn) |