diff options
| -rw-r--r-- | ghc/compiler/cmm/PprC.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/ghc/compiler/cmm/PprC.hs b/ghc/compiler/cmm/PprC.hs index cc70a9a08a..51e429b0ae 100644 --- a/ghc/compiler/cmm/PprC.hs +++ b/ghc/compiler/cmm/PprC.hs @@ -682,7 +682,8 @@ pprCall ppr_fn cconv results args vols where ppr_results [] = empty ppr_results [(one,hint)] - = pprExpr (CmmReg one) <> ptext SLIT(" = ") <> pprUnHint hint + = pprExpr (CmmReg one) <> ptext SLIT(" = ") + <> pprUnHint hint (cmmRegRep one) ppr_results _other = panic "pprCall: multiple results" pprArg (expr, PtrHint) @@ -693,10 +694,10 @@ pprCall ppr_fn cconv results args vols pprArg (expr, _other) = pprExpr expr - pprUnHint PtrHint = mkW_ - pprUnHint SignedHint = mkW_ - pprUnHint _ = empty - + pprUnHint PtrHint rep = parens (machRepCType rep) + pprUnHint SignedHint rep = parens (machRepCType rep) + pprUnHint _ _ = empty + save = save_restore SLIT("CALLER_SAVE") restore = save_restore SLIT("CALLER_RESTORE") |