Commit cde97291 authored by Ben Gamari's avatar Ben Gamari Committed by Simon Marlow
Browse files

Pass Platform to pprExpr1

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)'
parent ceef80b2
......@@ -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
......
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