From 4a4b04910d164d4917f2a8094844fd790dcf91ee Mon Sep 17 00:00:00 2001
From: Zubin Duggal <zubin.duggal@gmail.com>
Date: Thu, 11 Jan 2024 15:48:13 +0530
Subject: [PATCH] GHCi: Lookup breakpoint CCs in the correct module
We need to look up breakpoint CCs in the module that the breakpoint
points to, and not the current module.
Fixes #24327
---
compiler/GHC/StgToByteCode.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/compiler/GHC/StgToByteCode.hs b/compiler/GHC/StgToByteCode.hs
index 35a688107d9d..a81d42c9bae0 100644
--- a/compiler/GHC/StgToByteCode.hs
+++ b/compiler/GHC/StgToByteCode.hs
@@ -391,8 +391,7 @@ schemeER_wrk d p (StgTick (Breakpoint tick_ty tick_no fvs mod) rhs) = do
current_mod_breaks <- getCurrentModBreaks
case break_info hsc_env mod current_mod current_mod_breaks of
Nothing -> pure code
- Just ModBreaks {modBreaks_flags = breaks, modBreaks_module = mod_ptr} -> do
- cc_arr <- getCCArray
+ Just ModBreaks {modBreaks_flags = breaks, modBreaks_module = mod_ptr, modBreaks_ccs = cc_arr} -> do
platform <- profilePlatform <$> getProfile
let idOffSets = getVarOffSets platform d p fvs
ty_vars = tyCoVarsOfTypesWellScoped (tick_ty:map idType fvs)
--
GitLab