diff options
Diffstat (limited to 'compiler/utils/FastString.hs')
| -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) |