From: simonmar <unknown>
Date: Wed, 11 Oct 2000 14:07:52 +0000 (+0000)
Subject: [project @ 2000-10-11 14:07:52 by simonmar]
X-Git-Tag: Approximately_9120_patches~3642
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3e4dae71f3dffe9c1430d3e9e410b18f583d6eb5;p=ghc-hetmet.git

[project @ 2000-10-11 14:07:52 by simonmar]
add macro GLOBAL_VAR()
---

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