Give WHITEHOLE the BLACKHOLE closure type, instead of INVALID_OBJECT

[ghc-hetmet.git] / ghc / compiler / nativeGen / NCG.h

diff --git a/ghc/compiler/nativeGen/NCG.h b/ghc/compiler/nativeGen/NCG.h
index 48c1c79..b17f682 100644 (file)
--- a/ghc/compiler/nativeGen/NCG.h
+++ b/ghc/compiler/nativeGen/NCG.h
@@ -9,7 +9,7 @@
 #ifndef NCG_H
 #define NCG_H
 
-#include "../includes/ghcconfig.h"
+#include "ghc_boot_platform.h"
 
 #define COMMA ,
 
@@ -26,6 +26,12 @@
 # define IF_ARCH_i386(x,y) y
 #endif
 -- - - - - - - - - - - - - - - - - - - - - - 
+#if x86_64_TARGET_ARCH
+# define IF_ARCH_x86_64(x,y) x
+#else
+# define IF_ARCH_x86_64(x,y) y
+#endif
+-- - - - - - - - - - - - - - - - - - - - - - 
 #if freebsd_TARGET_OS
 # define IF_OS_freebsd(x,y) x
 #else