Commit 4315fc9f authored by simonmar's avatar simonmar

[project @ 2005-05-18 12:14:03 by simonmar]

We should be using ASSIGN_DBL/PK_DBL for stores/loads respectively of
doubles.  Hopefully fixes SIGBUS on HPPA, and possible Sparc too.
parent 04887da4
......@@ -184,6 +184,10 @@ pprStmt stmt = case stmt of
-> ptext SLIT("ASSIGN_Word64") <>
parens (mkP_ <> pprExpr1 dest <> comma <> pprExpr src) <> semi
| rep == F64 && wordRep /= I64
-> ptext SLIT("ASSIGN_DBL") <>
parens (mkP_ <> pprExpr1 dest <> comma <> pprExpr src) <> semi
| otherwise
-> hsep [ pprExpr (CmmLoad dest rep), equals, pprExpr src <> semi ]
where
......@@ -300,6 +304,9 @@ pprExpr e = case e of
CmmLoad e I64 | wordRep /= I64
-> ptext SLIT("PK_Word64") <> parens (mkP_ <> pprExpr1 e)
CmmLoad e F64 | wordRep /= I64
-> ptext SLIT("PK_DBL") <> parens (mkP_ <> pprExpr1 e)
CmmLoad (CmmReg r) rep
| isPtrReg r && rep == wordRep
-> char '*' <> pprAsPtrReg r
......
Markdown is supported
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