[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