[commit: ghc] wip/nfs-locking: Fix way-specific flags (8e7685c)

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


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

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

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

commit 8e7685c496e1ef4627d3f3b9d0850e6d5b487e07
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sat Jan 7 02:50:41 2017 +0000

    Fix way-specific flags


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

8e7685c496e1ef4627d3f3b9d0850e6d5b487e07
 src/Settings/Packages/Rts.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Settings/Packages/Rts.hs b/src/Settings/Packages/Rts.hs
index e8000c8..6855402 100644
--- a/src/Settings/Packages/Rts.hs
+++ b/src/Settings/Packages/Rts.hs
@@ -61,7 +61,10 @@ rtsPackageArgs = package rts ? do
           -- be inlined. See also #90.
           , arg "-O2"
 
-          , way == threaded ? arg "-DTHREADED_RTS"
+          , Debug     `wayUnit` way          ? arg "-DDEBUG"
+          , way `elem` [debug, debugDynamic] ? arg "-DTICKY_TICKY"
+          , Profiling `wayUnit` way          ? arg "-DPROFILING"
+          , Threaded  `wayUnit` way          ? arg "-DTHREADED_RTS"
 
           , inputs ["//RtsMessages.c", "//Trace.c"] ?
             arg ("-DProjectVersion=" ++ show projectVersion)



More information about the ghc-commits mailing list