projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-08-25 10:37:06 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
cmm
/
PprC.hs
diff --git
a/ghc/compiler/cmm/PprC.hs
b/ghc/compiler/cmm/PprC.hs
index
cc70a9a
..
51e429b
100644
(file)
--- 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)]
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)
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
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")
save = save_restore SLIT("CALLER_SAVE")
restore = save_restore SLIT("CALLER_RESTORE")