diff options
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 = |