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/Info.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/Info.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Info.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Info.hs b/compiler/GHC/Cmm/Info.hs index c650a66581..fa7602057f 100644 --- a/compiler/GHC/Cmm/Info.hs +++ b/compiler/GHC/Cmm/Info.hs @@ -253,7 +253,7 @@ mkInfoTableContents dflags ++ [ liveness_lit, slow_entry ] ; return (Nothing, Nothing, extra_bits, liveness_data) } where - slow_entry = CmmLabel (toSlowEntryLbl info_lbl) + slow_entry = CmmLabel (toSlowEntryLbl platform info_lbl) srt_lit = case srt_label of [] -> mkIntCLit platform 0 (lit:_rest) -> ASSERT( null _rest ) lit |