diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-05 11:17:46 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-11 20:33:37 -0400 |
| commit | 8e6febcee4b91a88a5027baac4bee5a8847fe79b (patch) | |
| tree | 52e17447417df5f410ea4e571ea5df7ead752bb8 /compiler/GHC/CoreToByteCode.hs | |
| parent | 3aa9b35fcc417ab39d8da633482fe64dc9f898b1 (diff) | |
| download | haskell-8e6febcee4b91a88a5027baac4bee5a8847fe79b.tar.gz | |
Refactor GHC.Driver.Session (Ways and Flags)
* extract flags and ways into their own modules (with some renaming)
* remove one SOURCE import of GHC.Driver.Session from GHC.Driver.Phases
* when GHC uses dynamic linking (WayDyn), `interpWays` was only
reporting WayDyn even if the host was profiled (WayProf). Now it
returns both as expected (might fix #16803).
* `mkBuildTag :: [Way] -> String` wasn't reporting a canonical tag for
differently ordered lists. Now we sort and nub the list to fix this.
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. |