[commit: ghc] master: InfoTables: Fix #if uses introduced by D4634 (3310f7f)
git at git.haskell.org
git at git.haskell.org
Wed May 16 19:40:54 UTC 2018
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/3310f7f14c0ba34a57fe5a77f47d2a66fe838a43/ghc
>---------------------------------------------------------------
commit 3310f7f14c0ba34a57fe5a77f47d2a66fe838a43
Author: Ben Gamari <ben at smart-cactus.org>
Date: Wed May 16 12:15:32 2018 -0400
InfoTables: Fix #if uses introduced by D4634
>---------------------------------------------------------------
3310f7f14c0ba34a57fe5a77f47d2a66fe838a43
includes/rts/storage/InfoTables.h | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/includes/rts/storage/InfoTables.h b/includes/rts/storage/InfoTables.h
index 8107510..137cfe2 100644
--- a/includes/rts/storage/InfoTables.h
+++ b/includes/rts/storage/InfoTables.h
@@ -335,7 +335,7 @@ typedef struct StgConInfoTable_ {
* info must be a Stg[Ret|Thunk]InfoTable* (an info table that has a SRT)
*/
#if defined(TABLES_NEXT_TO_CODE)
-#if x86_64_TARGET_ARCH
+#if defined(x86_64_TARGET_ARCH)
#define GET_SRT(info) \
((StgClosure*) (((StgWord) ((info)+1)) + (info)->i.srt))
#else
@@ -362,7 +362,7 @@ typedef struct StgConInfoTable_ {
* info must be a StgFunInfoTable*
*/
#if defined(TABLES_NEXT_TO_CODE)
-#if x86_64_TARGET_ARCH
+#if defined(x86_64_TARGET_ARCH)
#define GET_FUN_SRT(info) \
((StgClosure*) (((StgWord) ((info)+1)) + (info)->i.srt))
#else
More information about the ghc-commits
mailing list