[commit: ghc] wip/nfs-locking: Minor revision (25a6441)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 01:15:39 UTC 2017


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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/25a64411df44615296349aec133c180b8f008762/ghc

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

commit 25a64411df44615296349aec133c180b8f008762
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Fri Jan 6 02:59:20 2017 +0000

    Minor revision


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

25a64411df44615296349aec133c180b8f008762
 src/Settings/Packages/Rts.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/Settings/Packages/Rts.hs b/src/Settings/Packages/Rts.hs
index 7d844fa..8e71c87 100644
--- a/src/Settings/Packages/Rts.hs
+++ b/src/Settings/Packages/Rts.hs
@@ -56,7 +56,7 @@ rtsPackageArgs = package rts ? do
 
           , way == threaded ? arg "-DTHREADED_RTS"
 
-          , (input "//RtsMessages.c" ||^ input "//Trace.c") ?
+          , inputs ["//RtsMessages.c", "//Trace.c"] ?
             arg ("-DProjectVersion=" ++ show projectVersion)
 
           , input "//RtsUtils.c" ? append
@@ -76,11 +76,10 @@ rtsPackageArgs = package rts ? do
             , "-DGhcUnregisterised="         ++ show ghcUnreg
             , "-DGhcEnableTablesNextToCode=" ++ show ghcEnableTNC ]
 
-            , input "//Evac.c"     ? arg "-funroll-loops"
-            , input "//Evac_thr.c" ? arg "-funroll-loops"
+            , inputs ["//Evac.c", "//Evac_thr.c"] ? arg "-funroll-loops"
 
-            , input "//Evac_thr.c" ? append [ "-DPARALLEL_GC", "-Irts/sm" ]
-            , input "//Scav_thr.c" ? append [ "-DPARALLEL_GC", "-Irts/sm" ] ]
+            , inputs ["//Evac_thr.c", "//Scav_thr.c"] ?
+              append [ "-DPARALLEL_GC", "-Irts/sm" ] ]
 
         , builder Ghc ? arg "-Irts"
 



More information about the ghc-commits mailing list