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/StgToCmm/Expr.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/StgToCmm/Expr.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/StgToCmm/Expr.hs b/compiler/GHC/StgToCmm/Expr.hs index 0e0990b901..91853b5799 100644 --- a/compiler/GHC/StgToCmm/Expr.hs +++ b/compiler/GHC/StgToCmm/Expr.hs @@ -1113,7 +1113,7 @@ emitEnter fun = do -- | Generate Cmm code for a tick. Depending on the type of Tickish, -- this will either generate actual Cmm instrumentation code, or -- simply pass on the annotation as a @CmmTickish@. -cgTick :: Tickish Id -> FCode () +cgTick :: StgTickish Id -> FCode () cgTick tick = do { platform <- getPlatform ; case tick of |