Add preprocessor defines when SSE is enabled

This will add the following preprocessor defines when Haskell source
files are compiled:

 * __SSE__ - If any version of SSE is enabled
 * __SSE2__ - If SSE2 or greater is enabled
 * __SSE4_2_ - If SSE4.2 is enabled

Note that SSE2 is enabled by default on x86-64.

1 files changed, 2 insertions, 10 deletions

diff --git a/compiler/nativeGen/X86/CodeGen.hs b/compiler/nativeGen/X86/CodeGen.hs
index 30cf060e74..d01470926b 100644
--- a/compiler/nativeGen/X86/CodeGen.hs
+++ b/compiler/nativeGen/X86/CodeGen.hs
@@ -71,20 +71,12 @@ is32BitPlatform = do
 sse2Enabled :: NatM Bool
 sse2Enabled = do
   dflags <- getDynFlags
-  case platformArch (targetPlatform dflags) of
-      ArchX86_64 -> -- SSE2 is fixed on for x86_64.  It would be
-                    -- possible to make it optional, but we'd need to
-                    -- fix at least the foreign call code where the
-                    -- calling convention specifies the use of xmm regs,
-                    -- and possibly other places.
-                    return True
-      ArchX86    -> return (gopt Opt_SSE2 dflags || gopt Opt_SSE4_2 dflags)
-      _          -> panic "sse2Enabled: Not an X86* arch"
+  return (isSse2Enabled dflags)
 
 sse4_2Enabled :: NatM Bool
 sse4_2Enabled = do
   dflags <- getDynFlags
-  return (gopt Opt_SSE4_2 dflags)
+  return (isSse4_2Enabled dflags)
 
 if_sse2 :: NatM a -> NatM a -> NatM a
 if_sse2 sse2 x87 = do