From 3e4dae71f3dffe9c1430d3e9e410b18f583d6eb5 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 11 Oct 2000 14:07:52 +0000
Subject: [PATCH] [project @ 2000-10-11 14:07:52 by simonmar] add macro
 GLOBAL_VAR()

---
 ghc/compiler/HsVersions.h |    6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
1.7.10.4