diff options
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 11 | ||||
| -rw-r--r-- | docs/users_guide/phases.xml | 15 |
2 files changed, 26 insertions, 0 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 367e109880..62ff424bb6 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -2013,10 +2013,13 @@ doCpp dflags raw include_cc_opts input_fn output_fn = do [ "-D__SSE2__=1" | sse2 || sse4_2 ] ++ [ "-D__SSE4_2__=1" | sse4_2 ] + backend_defs <- getBackendDefs dflags + cpp_prog ( map SysTools.Option verbFlags ++ map SysTools.Option include_paths ++ map SysTools.Option hsSourceCppOpts ++ map SysTools.Option target_defs + ++ map SysTools.Option backend_defs ++ map SysTools.Option hscpp_opts ++ map SysTools.Option cc_opts ++ map SysTools.Option sse_defs @@ -2035,6 +2038,14 @@ doCpp dflags raw include_cc_opts input_fn output_fn = do , SysTools.FileOption "" output_fn ]) +getBackendDefs :: DynFlags -> IO [String] +getBackendDefs dflags | hscTarget dflags == HscLlvm = do + llvmVer <- figureLlvmVersion dflags + return [ "-D__GLASGOW_HASKELL_LLVM__="++show llvmVer ] + +getBackendDefs _ = + return [] + hsSourceCppOpts :: [String] -- Default CPP defines in Haskell source hsSourceCppOpts = diff --git a/docs/users_guide/phases.xml b/docs/users_guide/phases.xml index d7ad9955d3..f4019bd8cd 100644 --- a/docs/users_guide/phases.xml +++ b/docs/users_guide/phases.xml @@ -387,6 +387,21 @@ $ cat foo.hspp</screen> <varlistentry> <term> + <constant>__GLASGOW_HASKELL_LLVM__</constant> + <indexterm><primary><constant>__GLASGOW_HASKELL_LLVM__</constant></primary></indexterm> + </term> + <listitem> + <para>Only defined when <option>-fllvm</option> is specified. When GHC + is using version + <literal><replaceable>x</replaceable>.<replaceable>y</replaceable>.<replaceable>z</replaceable></literal> + of LLVM, the value of + <constant>__GLASGOW_HASKELL_LLVM__</constant> + is the integer <replaceable>xy</replaceable>.</para> + </listitem> + </varlistentry> + + <varlistentry> + <term> <constant>__PARALLEL_HASKELL__</constant> <indexterm><primary><constant>__PARALLEL_HASKELL__</constant></primary></indexterm> </term> |