diff options
| author | Benjamin Maurer <maurer.benjamin@gmail.com> | 2021-09-21 20:25:34 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-09-29 09:42:41 -0400 |
| commit | 5cc4bd574720fd97d877d702cbafa453434f035e (patch) | |
| tree | 737560ef4b45170a7e48ad03867f5588ad2b8525 /compiler/GHC/CmmToAsm/SPARC/CodeGen.hs | |
| parent | 361da88a29af9005135d33e00fc61ba92c592970 (diff) | |
| download | haskell-5cc4bd574720fd97d877d702cbafa453434f035e.tar.gz | |
Rectifying COMMENT and `mkComment` across platforms to work with SDoc
and exhibit similar behaviors. Issue 20400
Diffstat (limited to 'compiler/GHC/CmmToAsm/SPARC/CodeGen.hs')
| -rw-r--r-- | compiler/GHC/CmmToAsm/SPARC/CodeGen.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/SPARC/CodeGen.hs b/compiler/GHC/CmmToAsm/SPARC/CodeGen.hs index aeaaf1c9d3..ae8ee37cf9 100644 --- a/compiler/GHC/CmmToAsm/SPARC/CodeGen.hs +++ b/compiler/GHC/CmmToAsm/SPARC/CodeGen.hs @@ -53,6 +53,7 @@ import GHC.CmmToAsm.CPrim import GHC.Types.Basic import GHC.Data.FastString import GHC.Data.OrdList +import GHC.Utils.Outputable import GHC.Utils.Panic import GHC.Platform @@ -125,7 +126,7 @@ stmtToInstrs stmt = do platform <- getPlatform config <- getConfig case stmt of - CmmComment s -> return (unitOL (COMMENT s)) + CmmComment s -> return (unitOL (COMMENT $ ftext s)) CmmTick {} -> return nilOL CmmUnwind {} -> return nilOL |