On 12/10/2011 14:24, Ben Gamari wrote:
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
Thanks, I'll apply. Simon _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
