projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-01-05 16:24:44 by wolfgang]
[ghc-hetmet.git]
/
ghc
/
compiler
/
cmm
/
PprC.hs
diff --git
a/ghc/compiler/cmm/PprC.hs
b/ghc/compiler/cmm/PprC.hs
index
a21ee6d
..
824179c
100644
(file)
--- a/
ghc/compiler/cmm/PprC.hs
+++ b/
ghc/compiler/cmm/PprC.hs
@@
-178,7
+178,7
@@
pprStmt stmt = case stmt of
CmmAssign dest src -> pprAssign dest src
CmmStore dest src
CmmAssign dest src -> pprAssign dest src
CmmStore dest src
- | rep == I64
+ | rep == I64 && wordRep /= I64
-> ptext SLIT("ASSIGN_Word64") <>
parens (mkP_ <> pprExpr1 dest <> comma <> pprExpr src) <> semi
-> ptext SLIT("ASSIGN_Word64") <>
parens (mkP_ <> pprExpr1 dest <> comma <> pprExpr src) <> semi
@@
-295,7
+295,7
@@
pprExpr :: CmmExpr -> SDoc
pprExpr e = case e of
CmmLit lit -> pprLit lit
pprExpr e = case e of
CmmLit lit -> pprLit lit
- CmmLoad e I64
+ CmmLoad e I64 | wordRep /= I64
-> ptext SLIT("PK_Word64") <> parens (mkP_ <> pprExpr1 e)
CmmLoad (CmmReg r) rep
-> ptext SLIT("PK_Word64") <> parens (mkP_ <> pprExpr1 e)
CmmLoad (CmmReg r) rep