[Git][ghc/ghc][wip/24327] GHCi: Lookup breakpoint CCs in the correct module

[Zubin (@wz1000)]

Zubin pushed to branch wip/24327 at Glasgow Haskell Compiler / GHC


Commits:
4a4b0491 by Zubin Duggal at 2024-01-11T16:10:50+05:30
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

- - - - -


1 changed file:

- compiler/GHC/StgToByteCode.hs


Changes:

=====================================
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)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/4a4b04910d164d4917f2a8094844fd790dcf91ee

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/4a4b04910d164d4917f2a8094844fd790dcf91ee
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240111/b96468e7/attachment-0001.html>