diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-09-24 16:10:16 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-30 02:49:41 -0400 |
| commit | df3f58807580bc2762086e063e3823b05de6fd64 (patch) | |
| tree | 1c59f841d9eb351c20b1abe76e7db82634cc8056 /compiler/HsVersions.h | |
| parent | 6527fc57b8e099703f5bdb5ec7f1dfd421651972 (diff) | |
| download | haskell-df3f58807580bc2762086e063e3823b05de6fd64.tar.gz | |
Remove unsafeGlobalDynFlags (#17957, #14597)
There are still global variables but only 3 booleans instead of a single
DynFlags.
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 3f9f28df21..e472b10002 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -15,25 +15,25 @@ you will screw up the layout where they are used in case expressions! #define GLOBAL_VAR(name,value,ty) \ {-# NOINLINE name #-}; \ name :: IORef (ty); \ -name = GHC.Utils.Misc.global (value); +name = GHC.Utils.GlobalVars.global (value); #define GLOBAL_VAR_M(name,value,ty) \ {-# NOINLINE name #-}; \ name :: IORef (ty); \ -name = GHC.Utils.Misc.globalM (value); +name = GHC.Utils.GlobalVars.globalM (value); #define SHARED_GLOBAL_VAR(name,accessor,saccessor,value,ty) \ {-# NOINLINE name #-}; \ name :: IORef (ty); \ -name = GHC.Utils.Misc.sharedGlobal (value) (accessor); \ +name = GHC.Utils.GlobalVars.sharedGlobal (value) (accessor);\ foreign import ccall unsafe saccessor \ accessor :: Ptr (IORef a) -> IO (Ptr (IORef a)); #define SHARED_GLOBAL_VAR_M(name,accessor,saccessor,value,ty) \ {-# NOINLINE name #-}; \ name :: IORef (ty); \ -name = GHC.Utils.Misc.sharedGlobalM (value) (accessor); \ +name = GHC.Utils.GlobalVars.sharedGlobalM (value) (accessor); \ foreign import ccall unsafe saccessor \ accessor :: Ptr (IORef a) -> IO (Ptr (IORef a)); |