X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FHsVersions.h;h=d1bad70d0b60bc1420ea8340701fcc7d8a78d1af;hb=1211c4e59dd9c4f5e7b027649a1e3c6eb459f5e1;hp=eae9cc96d4220a9e32f678890aa83684d75fc938;hpb=71a983960c5372ddf382ad02c75afb967e0ea2df;p=ghc-hetmet.git

diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h
index eae9cc9..d1bad70 100644
--- a/ghc/compiler/HsVersions.h
+++ b/ghc/compiler/HsVersions.h
@@ -10,6 +10,12 @@ you will screw up the layout where they are used in case expressions!
 
 #endif
 
+#ifdef __GLASGOW_HASKELL__
+#define GLOBAL_VAR(name,value,ty)  \
+name = global (value) :: IORef (ty); \
+{-# NOINLINE name #-}
+#endif
+
 #define COMMA ,
 
 #ifdef DEBUG