diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-11-30 11:47:47 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-11-30 11:47:47 +0000 |
| commit | eb533354854fb845898dd125bb3f04b624c4f2eb (patch) | |
| tree | e9041b8fe378884b9230b6abc97bae7a45d161ac | |
| parent | 0c5959ffc07f41fe2b7ac9fa7171e9f6901477f2 (diff) | |
| download | haskell-eb533354854fb845898dd125bb3f04b624c4f2eb.tar.gz | |
HACK: Don't store Id/Type in CgBreakInfo
| -rw-r--r-- | compiler/GHC/StgToByteCode.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/GHC/StgToByteCode.hs b/compiler/GHC/StgToByteCode.hs index 989121207d..7bedc16ae6 100644 --- a/compiler/GHC/StgToByteCode.hs +++ b/compiler/GHC/StgToByteCode.hs @@ -89,6 +89,7 @@ import Data.Either ( partitionEithers ) import GHC.Stg.Syntax import qualified Data.IntSet as IntSet +import GHC.Builtin.Types -- ----------------------------------------------------------------------------- -- Generating byte code for a complete module @@ -370,9 +371,9 @@ schemeER_wrk d p (StgTick (Breakpoint tick_ty tick_no fvs) rhs) this_mod <- moduleName <$> getCurrentModule platform <- profilePlatform <$> getProfile let idOffSets = getVarOffSets platform d p fvs - let breakInfo = CgBreakInfo - { cgb_vars = idOffSets - , cgb_resty = tick_ty + let breakInfo = seqType tick_ty `seq` CgBreakInfo + { cgb_vars = [] -- idOffSets + , cgb_resty = unitTy -- tick_ty } newBreakInfo tick_no breakInfo hsc_env <- getHscEnv |