Fixes build error:
compiler/cmm/PprC.hs:961:33:
Couldn't match expected type `Platform'
against inferred type `CmmExpr'
In the first argument of `pprExpr1', namely `expr'
In the second argument of `(<+>)', namely `pprExpr1 expr'
In the first argument of `parens', namely
`(cast <+> pprExpr1 expr)'
---
compiler/cmm/PprC.hs | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs
index 78cd699..812f3b2 100644
--- a/compiler/cmm/PprC.hs
+++ b/compiler/cmm/PprC.hs
@@ -958,7 +958,7 @@ cLoad platform expr rep =
struct = ptext (sLit "struct") <+> braces (decl)
packed_attr = ptext (sLit "__attribute__((packed))")
cast = parens (struct <+> packed_attr <> char '*')
- in parens (cast <+> pprExpr1 expr) <> ptext (sLit "->x")
+ in parens (cast <+> pprExpr1 platform expr) <> ptext (sLit "->x")
#else
cLoad platform expr rep = char '*' <> parens (cCast platform (machRepPtrCType
rep) expr)
#endif
--
1.7.4.1
_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc
