[commit: hadrian] master: fix end (fe5759b)

git at git.haskell.org git at git.haskell.org
Wed Apr 25 23:20:24 UTC 2018


Repository : ssh://git@git.haskell.org/hadrian

On branch  : master
Link       : http://git.haskell.org/hadrian.git/commitdiff/fe5759b46cb9f04ba78a975c99a6d99b866d448e

>---------------------------------------------------------------

commit fe5759b46cb9f04ba78a975c99a6d99b866d448e
Author: Tamar Christina <tamar at zhox.com>
Date:   Wed Mar 28 00:53:12 2018 +0100

    fix end


>---------------------------------------------------------------

fe5759b46cb9f04ba78a975c99a6d99b866d448e
 src/Settings/Packages/Rts.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/Settings/Packages/Rts.hs b/src/Settings/Packages/Rts.hs
index fcbd795..212bd72 100644
--- a/src/Settings/Packages/Rts.hs
+++ b/src/Settings/Packages/Rts.hs
@@ -112,6 +112,8 @@ rtsPackageArgs = package rts ? do
           , arg $ "-I" ++ path
           , flag UseSystemFfi ? arg ("-I" ++ ffiIncludeDir)
           , arg $ "-DRtsWay=\"rts_" ++ show way ++ "\""
+          -- Set the namespace for the rts fs functions
+          , arg $ "-DFS_NAMESPACE=rts"
           -- RTS *must* be compiled with optimisations. The INLINE_HEADER macro
           -- requires that functions are inlined to work as expected. Inlining
           -- only happens for optimised builds. Otherwise we can assume that
@@ -145,6 +147,14 @@ rtsPackageArgs = package rts ? do
             , "-DGhcUnregisterised="         ++ show ghcUnreg
             , "-DGhcEnableTablesNextToCode=" ++ show ghcEnableTNC ]
 
+          -- We're after pur performance here. So make sure fast math and
+          -- vectorization is enabled.
+          , input "//xxhash.c" ? pure
+            [ "-O3"
+            , "-ffast-math"
+            , "-ftree-vectorize"
+            ]
+
             , inputs ["//Evac.c", "//Evac_thr.c"] ? arg "-funroll-loops"
 
             , speedHack ?



More information about the ghc-commits mailing list