diff options
| author | simonmar <unknown> | 2000-10-11 14:07:52 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-10-11 14:07:52 +0000 |
| commit | 3e4dae71f3dffe9c1430d3e9e410b18f583d6eb5 (patch) | |
| tree | 7ffc07b41a3f34361a07f566a2d44fd1d88232d5 /ghc/compiler/HsVersions.h | |
| parent | 4211484bbfb9aee2a1a24d893d467453a8765b43 (diff) | |
| download | haskell-3e4dae71f3dffe9c1430d3e9e410b18f583d6eb5.tar.gz | |
[project @ 2000-10-11 14:07:52 by simonmar]
add macro GLOBAL_VAR()
Diffstat (limited to 'ghc/compiler/HsVersions.h')
| -rw-r--r-- | ghc/compiler/HsVersions.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ghc/compiler/HsVersions.h b/ghc/compiler/HsVersions.h index eae9cc96d4..d1bad70d0b 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 |