llvmGen: Fix build with Clang
authorErik de Castro Lopo <erikd@mega-nerd.com>
Sat, 31 Oct 2015 23:11:02 +0000 (00:11 +0100)
committerBen Gamari <ben@smart-cactus.org>
Sat, 31 Oct 2015 23:11:18 +0000 (00:11 +0100)
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

compiler/llvmGen/LlvmCodeGen/CodeGen.hs

index b754a93..cde3276 100644 (file)
@@ -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.