diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2011-10-12 09:24:13 -0400 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-10-17 13:16:32 +0100 |
| commit | cde972911162bcbb94a6a76550463f324176b445 (patch) | |
| tree | 0bd5685b4f09490a5ad6c1036aa3319bc148c936 /compiler/cmm | |
| parent | ceef80b2fbd414c701bb2a346226a357475983ad (diff) | |
| download | haskell-cde972911162bcbb94a6a76550463f324176b445.tar.gz | |
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)'
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | 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 78cd6990ba..812f3b2827 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 |