mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
Allows toggling breakpoints while running.
This commit is contained in:
parent
16b2c82b2f
commit
b748f7b209
1 changed files with 10 additions and 1 deletions
|
@ -65,7 +65,16 @@ SUB vwatch (linenumber AS LONG)
|
|||
lastLine = linenumber
|
||||
|
||||
GOSUB GetCommand
|
||||
IF cmd$ = "break" THEN pauseMode = -1: stepOver = 0: cmd$ = ""
|
||||
SELECT CASE cmd$
|
||||
CASE "break"
|
||||
pauseMode = -1
|
||||
stepOver = 0
|
||||
cmd$ = ""
|
||||
CASE "set breakpoint"
|
||||
vwatch_breakpoints(CVL(value$)) = -1
|
||||
CASE "clear breakpoint"
|
||||
vwatch_breakpoints(CVL(value$)) = 0
|
||||
END SELECT
|
||||
|
||||
IF stepOver = -1 AND vwatch_sublevel > startLevel AND vwatch_breakpoints(linenumber) = 0 THEN
|
||||
EXIT SUB
|
||||
|
|
Loading…
Reference in a new issue