[commit: ghc] master: Don't have CPP macros expanding to 'defined'. (cb582b6)

git at git.haskell.org git at git.haskell.org
Tue Dec 13 21:23:59 UTC 2016


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/cb582b6476f64c1c86d89dce4d78462581fd2a6f/ghc

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

commit cb582b6476f64c1c86d89dce4d78462581fd2a6f
Author: Shea Levy <shea at shealevy.com>
Date:   Tue Dec 13 14:53:50 2016 -0500

    Don't have CPP macros expanding to 'defined'.
    
    Reviewers: austin, simonmar, erikd, bgamari
    
    Reviewed By: erikd, bgamari
    
    Subscribers: angerman, thomie
    
    Differential Revision: https://phabricator.haskell.org/D2823


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

cb582b6476f64c1c86d89dce4d78462581fd2a6f
 includes/rts/storage/ClosureMacros.h | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/includes/rts/storage/ClosureMacros.h b/includes/rts/storage/ClosureMacros.h
index 90198f2..c8c270f 100644
--- a/includes/rts/storage/ClosureMacros.h
+++ b/includes/rts/storage/ClosureMacros.h
@@ -520,8 +520,17 @@ INLINE_HEADER StgWord8 *mutArrPtrsCard (StgMutArrPtrs *a, W_ n)
 
    -------------------------------------------------------------------------- */
 
-#define ZERO_SLOP_FOR_LDV_PROF     (defined(PROFILING))
-#define ZERO_SLOP_FOR_SANITY_CHECK (defined(DEBUG) && !defined(THREADED_RTS))
+#if defined(PROFILING)
+#define ZERO_SLOP_FOR_LDV_PROF 1
+#else
+#define ZERO_SLOP_FOR_LDV_PROF 0
+#endif
+
+#if defined(DEBUG) && !defined(THREADED_RTS)
+#define ZERO_SLOP_FOR_SANITY_CHECK 1
+#else
+#define ZERO_SLOP_FOR_SANITY_CHECK 0
+#endif
 
 #if ZERO_SLOP_FOR_LDV_PROF || ZERO_SLOP_FOR_SANITY_CHECK
 #define OVERWRITING_CLOSURE(c) overwritingClosure(c)



More information about the ghc-commits mailing list