summaryrefslogtreecommitdiff
path: root/compiler/llvmGen
diff options
context:
space:
mode:
authorErik de Castro Lopo <erikd@mega-nerd.com>2015-11-01 00:11:02 +0100
committerBen Gamari <ben@smart-cactus.org>2015-11-01 00:11:18 +0100
commitda1a8da78df3ea8715dc95a874ca6050f06b1908 (patch)
tree54357306f21d3f490df2dd83627f76303ac31091 /compiler/llvmGen
parentbc7cc25676a8edd7be8cab30d4f26b3dd064f717 (diff)
downloadhaskell-da1a8da78df3ea8715dc95a874ca6050f06b1908.tar.gz
llvmGen: Fix build with Clang
Another weird case of Clang not accepting whitespace in CPP that GCC accepts without a problem. Test Plan: Build with Clang and GCC Reviewers: austin, thomie, hvr, bgamari Reviewed By: bgamari Differential Revision: https://phabricator.haskell.org/D1409
Diffstat (limited to 'compiler/llvmGen')
-rw-r--r--compiler/llvmGen/LlvmCodeGen/CodeGen.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
index b754a93b44..cde3276e9f 100644
--- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
+++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
@@ -476,11 +476,11 @@ genCallWithOverflow
:: ForeignTarget -> Width -> [CmmFormal] -> [CmmActual] -> LlvmM StmtData
genCallWithOverflow t@(PrimTarget op) w [dstV, dstO] [lhs, rhs] = do
-- So far this was only tested for the following four CallishMachOps.
- MASSERT( (op `elem` [ MO_Add2 w
+ MASSERT((op `elem` [ MO_Add2 w
, MO_AddIntC w
, MO_SubIntC w
, MO_SubWordC w
- ]) )
+ ]))
let width = widthToLlvmInt w
-- This will do most of the work of generating the call to the intrinsic and
-- extracting the values from the struct.