diff options
Diffstat (limited to 'compiler/GHC/CoreToByteCode.hs')
| -rw-r--r-- | compiler/GHC/CoreToByteCode.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/CoreToByteCode.hs b/compiler/GHC/CoreToByteCode.hs index a9c3ce3711..241066c2b3 100644 --- a/compiler/GHC/CoreToByteCode.hs +++ b/compiler/GHC/CoreToByteCode.hs @@ -24,6 +24,7 @@ import GHCi.FFI import GHCi.RemoteTypes import BasicTypes import GHC.Driver.Session +import GHC.Driver.Ways import Outputable import GHC.Platform import Name @@ -996,7 +997,7 @@ doCase d s p (_,scrut) bndr alts is_unboxed_tuple let profiling | Just (ExternalInterp _) <- hsc_interp hsc_env = gopt Opt_SccProfilingOn dflags - | otherwise = rtsIsProfiled + | otherwise = hostIsProfiled -- Top of stack is the return itbl, as usual. -- underneath it is the pointer to the alt_code BCO. |