diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-09-19 10:31:06 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-09 16:21:14 -0400 |
| commit | 0c0a15a8541a9119536ee17849d8390cb21ab764 (patch) | |
| tree | 5ad55179918684d38c4fcff8a502d3d8c5b460e1 /compiler/utils | |
| parent | f691f0c21dcc576e02313123e8b091e241d23b51 (diff) | |
| download | haskell-0c0a15a8541a9119536ee17849d8390cb21ab764.tar.gz | |
Rename STAGE macro to GHC_STAGE
To avoid polluting the macro namespace
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/FastString.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/utils/FastString.hs b/compiler/utils/FastString.hs index 8f3d454a1f..62a81aa10d 100644 --- a/compiler/utils/FastString.hs +++ b/compiler/utils/FastString.hs @@ -124,7 +124,7 @@ import GHC.IO import Foreign -#if STAGE >= 2 +#if GHC_STAGE >= 2 import GHC.Conc.Sync (sharedCAF) #endif @@ -333,12 +333,12 @@ stringTable = unsafePerformIO $ do -- use the support wired into the RTS to share this CAF among all images of -- libHSghc -#if STAGE < 2 +#if GHC_STAGE < 2 return tab #else sharedCAF tab getOrSetLibHSghcFastStringTable --- from the RTS; thus we cannot use this mechanism when STAGE<2; the previous +-- from the RTS; thus we cannot use this mechanism when GHC_STAGE<2; the previous -- RTS might not have this symbol foreign import ccall unsafe "getOrSetLibHSghcFastStringTable" getOrSetLibHSghcFastStringTable :: Ptr a -> IO (Ptr a) |