diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-18 20:44:20 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-18 20:44:20 +0100 |
| commit | 3a4c64c1a2953bbc759a6f5c99dad31ab50dc96b (patch) | |
| tree | 6cc936273ae8993b1ab970c1e4e5f623cfd93920 /compiler/cmm/PprCmmDecl.hs | |
| parent | 8244ec3416d6db22444e157731deb4d7b5e13824 (diff) | |
| download | haskell-3a4c64c1a2953bbc759a6f5c99dad31ab50dc96b.tar.gz | |
Make StgHalfWord a portable type
It's now a newtyped Integer. Perhaps a newtyped Word32 would make more
sense, though.
Diffstat (limited to 'compiler/cmm/PprCmmDecl.hs')
| -rw-r--r-- | compiler/cmm/PprCmmDecl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/PprCmmDecl.hs b/compiler/cmm/PprCmmDecl.hs index ab320b4100..d2491d3089 100644 --- a/compiler/cmm/PprCmmDecl.hs +++ b/compiler/cmm/PprCmmDecl.hs @@ -127,7 +127,7 @@ pprInfoTable (CmmInfoTable { cit_lbl = lbl, cit_rep = rep instance Outputable C_SRT where ppr NoC_SRT = ptext (sLit "_no_srt_") ppr (C_SRT label off bitmap) - = parens (ppr label <> comma <> ppr off <> comma <> text (show bitmap)) + = parens (ppr label <> comma <> ppr off <> comma <> ppr bitmap) instance Outputable ForeignHint where ppr NoHint = empty |