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`.

1 files changed, 41 insertions, 0 deletions

diff --git a/testsuite/tests/ghci.debugger/scripts/T19157.stdout b/testsuite/tests/ghci.debugger/scripts/T19157.stdout
new file mode 100644
index 0000000000..f0ac09d7f4
--- /dev/null
+++ b/testsuite/tests/ghci.debugger/scripts/T19157.stdout
@@ -0,0 +1,41 @@
+Breakpoint 0 activated at T19157.hs:7:17-19
+Breakpoint 1 activated at T19157.hs:8:23-37
+---------------------- Test 1
+Stopped in T19157.mySum.go, T19157.hs:8:23-37
+_result :: Int = _
+go :: Int -> [Int] -> Int = _
+s :: Int = 1
+ss :: [Int] = [2,3,4,5,6]
+sum :: Int = 0
+Stopped in T19157.mySum.go, T19157.hs:8:23-37
+_result :: Int = _
+go :: Int -> [Int] -> Int = _
+s :: Int = 4
+ss :: [Int] = [5,6]
+sum :: Int = _
+Stopped in T19157.mySum.go, T19157.hs:8:23-37
+_result :: Int = _
+go :: Int -> [Int] -> Int = _
+s :: Int = 6
+ss :: [Int] = []
+sum :: Int = _
+Stopped in T19157.mySum.go, T19157.hs:7:17-19
+_result :: Int = _
+sum :: Int = _
+21
+---------------------- Test 2
+Stopped in T19157.mySum.go, T19157.hs:8:23-37
+_result :: Int = _
+go :: Int -> [Int] -> Int = _
+s :: Int = 1001
+ss :: [Int] = _
+sum :: Int = _
+---------------------- Test 3
+Ignore count ‘q’ is not numeric
+Ignore count ‘-1’ must be >= 0
+After ':continue' only one ignore count is allowed
+Breakpoint a not found
+Breakpoint 5 not found
+Syntax:  :ignore <breaknum> <count>
+Syntax:  :ignore <breaknum> <count>
+Ignore count ‘-1’ must be >= 0