diff options
| author | Roland Senn <rsx@bluewin.ch> | 2021-01-16 17:31:45 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-03-10 16:59:05 -0500 |
| commit | fcfc66e59c81277c1f7c079ad4e0ccd9a69e1fb6 (patch) | |
| tree | 378b6b8bebea928fe5fafad2dcf7920253ecbaeb /compiler/GHC/Runtime/Interpreter.hs | |
| parent | 115cd3c85a8c38f1fe2a10d4ee515f92c96dd5a2 (diff) | |
| download | haskell-fcfc66e59c81277c1f7c079ad4e0ccd9a69e1fb6.tar.gz | |
Ignore breakpoint for a specified number of iterations. (#19157)
* Implement new debugger command `:ignore` to set an `ignore count`
for a specified breakpoint.
* Allow new optional parameter on `:continue` command to set an
`ignore count` for the current breakpoint.
* In the Interpreter replace the current `Word8` BreakArray with
an `Int` array.
* Change semantics of values in `BreakArray` to:
n < 0 : Breakpoint is disabled.
n == 0 : Breakpoint is enabled.
n > 0 : Breakpoint is enabled, but ignore next `n` iterations.
* Rewrite `:enable`/`:disable` processing as a special case of `:ignore`.
* Remove references to `BreakArray` from `ghc/UI.hs`.
Diffstat (limited to 'compiler/GHC/Runtime/Interpreter.hs')
| -rw-r--r-- | compiler/GHC/Runtime/Interpreter.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/GHC/Runtime/Interpreter.hs b/compiler/GHC/Runtime/Interpreter.hs index cb13089571..cc5f289f48 100644 --- a/compiler/GHC/Runtime/Interpreter.hs +++ b/compiler/GHC/Runtime/Interpreter.hs @@ -19,7 +19,7 @@ module GHC.Runtime.Interpreter , mkCostCentres , costCentreStackInfo , newBreakArray - , enableBreakpoint + , storeBreakpoint , breakpointStatus , getBreakpointVar , getClosure @@ -379,10 +379,10 @@ newBreakArray hsc_env size = do breakArray <- iservCmd hsc_env (NewBreakArray size) mkFinalizedHValue hsc_env breakArray -enableBreakpoint :: HscEnv -> ForeignRef BreakArray -> Int -> Bool -> IO () -enableBreakpoint hsc_env ref ix b = +storeBreakpoint :: HscEnv -> ForeignRef BreakArray -> Int -> Int -> IO () +storeBreakpoint hsc_env ref ix cnt = do -- #19157 withForeignRef ref $ \breakarray -> - iservCmd hsc_env (EnableBreakpoint breakarray ix b) + iservCmd hsc_env (SetupBreakpoint breakarray ix cnt) breakpointStatus :: HscEnv -> ForeignRef BreakArray -> Int -> IO Bool breakpointStatus hsc_env ref ix = |