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
|
lastLine = linenumber
|
||||||
|
|
||||||
GOSUB GetCommand
|
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
|
IF stepOver = -1 AND vwatch_sublevel > startLevel AND vwatch_breakpoints(linenumber) = 0 THEN
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
|
|
Loading…
Reference in a new issue