diff options
| author | Luite Stegeman <stegeman@gmail.com> | 2020-12-10 14:19:02 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-20 07:49:15 -0400 |
| commit | dd11f2d5e87ba83ca16510e3e1ac6c41c1df1647 (patch) | |
| tree | 66550e7e66b679ae9ec31cab237d7bbced67b2ee /compiler/GHC/CoreToStg/Prep.hs | |
| parent | ceef490b25dbff93860b121c58b0191b1a0c07bf (diff) | |
| download | haskell-dd11f2d5e87ba83ca16510e3e1ac6c41c1df1647.tar.gz | |
Save the type of breakpoints in the Breakpoint tick in STG
GHCi needs to know the types of all breakpoints, but it's
not possible to get the exprType of any expression in STG.
This is preparation for the upcoming change to make GHCi
bytecode from STG instead of Core.
Diffstat (limited to 'compiler/GHC/CoreToStg/Prep.hs')
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index 5395a737d6..21c1fb0272 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -610,9 +610,9 @@ cpeRhsE env (Tick tickish expr) = do { body <- cpeBodyNF env expr ; return (emptyFloats, mkTick tickish' body) } where - tickish' | Breakpoint n fvs <- tickish + tickish' | Breakpoint ext n fvs <- tickish -- See also 'substTickish' - = Breakpoint n (map (getIdFromTrivialExpr . lookupCorePrepEnv env) fvs) + = Breakpoint ext n (map (getIdFromTrivialExpr . lookupCorePrepEnv env) fvs) | otherwise = tickish |