[project @ 2004-03-30 15:32:59 by ralf]
[ghc-hetmet.git] / ghc / compiler / HsVersions.h
index 853e586..ff6e5ae 100644 (file)
@@ -52,6 +52,12 @@ name = Util.global (value) :: IORef (ty); \
 {-# NOINLINE name #-}
 #endif
 
+#if __GLASGOW_HASKELL__ >= 620
+#define UNBOX_FIELD !!
+#else
+#define UNBOX_FIELD !
+#endif
+
 #define COMMA ,
 
 #ifdef DEBUG