Rodrigo Mesquita pushed to branch wip/romes/step-out-10 at Glasgow Haskell Compiler / GHC
Commits:
3fec5172 by Rodrigo Mesquita at 2025-07-30T11:08:18+00:00
Apply 2 suggestion(s) to 2 file(s)
Co-authored-by: Cheng Shao
- - - - -
2 changed files:
- compiler/GHC/ByteCode/Breakpoints.hs
- compiler/GHC/Linker/Loader.hs
Changes:
=====================================
compiler/GHC/ByteCode/Breakpoints.hs
=====================================
@@ -107,8 +107,8 @@ type BreakInfoIndex = Int
-- Indexes into the structures in the @'InternalModBreaks'@ produced during ByteCode generation.
-- See Note [Breakpoint identifiers]
data InternalBreakpointId = InternalBreakpointId
- { ibi_info_mod :: !Module -- ^ Breakpoint tick module
- , ibi_info_index :: !BreakInfoIndex -- ^ Breakpoint tick index
+ { ibi_info_mod :: !Module -- ^ Breakpoint info module
+ , ibi_info_index :: !BreakInfoIndex -- ^ Breakpoint info index
}
deriving (Eq, Ord)
=====================================
compiler/GHC/Linker/Loader.hs
=====================================
@@ -1671,7 +1671,7 @@ allocateBreakArrays interp =
( \be0 InternalModBreaks{imodBreaks_breakInfo, imodBreaks_modBreaks=ModBreaks {..}} -> do
-- If no BreakArray is assigned to this module yet, create one
if not $ elemModuleEnv modBreaks_module be0 then do
- let count = 1 + (maybe 0 fst $ IM.lookupMax imodBreaks_breakInfo)
+ let count = maybe 0 ((+1) . fst) $ IM.lookupMax imodBreaks_breakInfo
breakArray <- GHCi.newBreakArray interp count
evaluate $ extendModuleEnv be0 modBreaks_module breakArray
else
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/3fec517262f251004ac1d1c0abc2b926...
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/3fec517262f251004ac1d1c0abc2b926...
You're receiving this email because of your account on gitlab.haskell.org.
