diff options
author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-31 12:38:56 +0200 |
---|---|---|
committer | Sylvain Henry <sylvain@haskus.fr> | 2020-07-31 19:32:09 +0200 |
commit | 56a7c19337c5b2aa21d521a6d7c965174ec8379b (patch) | |
tree | d280483bcf3e2c34d1761b0dc9ec09b863026073 /compiler/GHC/Cmm/ProcPoint.hs | |
parent | 380638a33691ba43fdcd2e18bca636750e5f66f1 (diff) | |
download | haskell-56a7c19337c5b2aa21d521a6d7c965174ec8379b.tar.gz |
Refactor CLabel pretty-printing
Pretty-printing CLabel relies on sdocWithDynFlags that we want to remove
(#10143, #17957). It uses it to query the backend and the platform.
This patch exposes Clabel ppr functions specialised for each backend so
that backend code can directly use them.
Diffstat (limited to 'compiler/GHC/Cmm/ProcPoint.hs')
-rw-r--r-- | compiler/GHC/Cmm/ProcPoint.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/ProcPoint.hs b/compiler/GHC/Cmm/ProcPoint.hs index 1a42dad51d..cca69310b7 100644 --- a/compiler/GHC/Cmm/ProcPoint.hs +++ b/compiler/GHC/Cmm/ProcPoint.hs @@ -319,7 +319,7 @@ splitAtProcPoints dflags entry_label callPPs procPoints procMap tablesNextToCode = platformTablesNextToCode platform jump_label (Just info_lbl) _ | tablesNextToCode = info_lbl - | otherwise = toEntryLbl info_lbl + | otherwise = toEntryLbl platform info_lbl jump_label Nothing block_lbl = block_lbl add_if_pp id rst = case mapLookup id procLabels of |