From 2b8e1af0d3e2187c5e1ef7536a23b7e27f3a743e Mon Sep 17 00:00:00 2001 From: wolfgang Date: Wed, 5 Jan 2005 16:24:44 +0000 Subject: [PATCH] [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. --- ghc/compiler/cmm/PprC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/cmm/PprC.hs b/ghc/compiler/cmm/PprC.hs index a21ee6d..824179c 100644 --- 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 - | 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 -- 1.7.10.4