Commit 2b8e1af0 authored by wolfgang's avatar wolfgang
Browse files

[project @ 2005-01-05 16:24:44 by wolfgang]

Don't use PK_Word64 and ASSIGN_Word64 on 64-bit machines;
they just make the .hc files harder to read without adding any benefit.
parent 3b513304
......@@ -178,7 +178,7 @@ pprStmt stmt = case stmt of
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
......@@ -295,7 +295,7 @@ pprExpr :: CmmExpr -> SDoc
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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment