Pass Platform to pprExpr1
authorBen Gamari <bgamari.foss@gmail.com>
Wed, 12 Oct 2011 13:24:13 +0000 (09:24 -0400)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 17 Oct 2011 12:16:32 +0000 (13:16 +0100)
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

index 78cd699..812f3b2 100644 (file)
@@ -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