QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +00:00
Code Issues Releases Wiki Activity

Calls _KEYCLEAR before moving on with the debuggee.

Browse source 
In order to prevent unwanted keypresses eventually entered while in pause mode.
This commit is contained in:
FellippeHeitor 2021-09-09 00:35:51 -03:00
parent 908a5b179f
commit 357178652b
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
internal/support/vwatch/vwatch.bm
View file

@ -215,13 +215,13 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
CASE "run"
vw_pauseMode = 0
vw_stepOver = 0
vwatch_starttimers
_KEYCLEAR: vwatch_starttimers
EXIT SUB
CASE "run to line"
vw_pauseMode = 0
vw_stepOver = 0
vw_runToLine = CVL(vw_value$)
vwatch_starttimers
_KEYCLEAR: vwatch_starttimers
EXIT SUB
CASE "step"
vw_pauseMode = -1
@ -231,19 +231,19 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
vw_pauseMode = -1
vw_stepOver = -1
vw_startLevel = vwatch_sublevel
vwatch_starttimers
_KEYCLEAR: vwatch_starttimers
EXIT SUB
CASE "step out"
vw_pauseMode = -1
vw_stepOver = -1
vw_startLevel = vwatch_sublevel - 1
vwatch_starttimers
_KEYCLEAR: vwatch_starttimers
EXIT SUB
CASE "free"
unlockvWatchHandle: CLOSE #vw_ideHost
vw_ideHost = 0
vw_bypass = -1
vwatch_starttimers
_KEYCLEAR: vwatch_starttimers
EXIT SUB
CASE "set breakpoint"
vwatch_breakpoints(CVL(vw_value$)) = -1
@ -516,6 +516,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
_LIMIT 100
LOOP
_KEYCLEAR
vwatch_starttimers
EXIT SUB