mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
Update vwatch.bm so qb64.bas can be debugged
This commit is contained in:
parent
02af89c94d
commit
7bad19cb94
1 changed files with 3 additions and 3 deletions
|
@ -24,7 +24,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
||||||
SUB unlockvWatchHandle
|
SUB unlockvWatchHandle
|
||||||
SUB set_qbs_size (target AS _OFFSET, BYVAL length&)
|
SUB set_qbs_size (target AS _OFFSET, BYVAL length&)
|
||||||
SUB call_setbits (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET, BYVAL value AS _INTEGER64)
|
SUB call_setbits (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET, BYVAL value AS _INTEGER64)
|
||||||
SUB set_foreground_window (BYVAL hwnd AS _OFFSET)
|
SUB set_fg ALIAS set_foreground_window (BYVAL hwnd AS _OFFSET)
|
||||||
FUNCTION stop_program_state&
|
FUNCTION stop_program_state&
|
||||||
FUNCTION check_lbound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG)
|
FUNCTION check_lbound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG)
|
||||||
FUNCTION check_ubound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG)
|
FUNCTION check_ubound%& (array AS _OFFSET, BYVAL index AS LONG, BYVAL num_indexes AS LONG)
|
||||||
|
@ -125,7 +125,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
||||||
GOSUB SendCallStack
|
GOSUB SendCallStack
|
||||||
vw_cmd$ = "error:" + MKL$(vw_lastLine)
|
vw_cmd$ = "error:" + MKL$(vw_lastLine)
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
set_foreground_window vw_ideHwnd
|
set_fg vw_ideHwnd
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
ELSEIF vwatch_linenumber = -2 THEN
|
ELSEIF vwatch_linenumber = -2 THEN
|
||||||
'report a new sub/function has been "entered"
|
'report a new sub/function has been "entered"
|
||||||
|
@ -221,7 +221,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
||||||
vw_cmd$ = "current sub:" + LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1)
|
vw_cmd$ = "current sub:" + LEFT$(vwatch_stack(vwatch_sublevel), INSTR(vwatch_stack(vwatch_sublevel), ",") - 1)
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
|
|
||||||
set_foreground_window vw_ideHwnd
|
set_fg vw_ideHwnd
|
||||||
|
|
||||||
DO 'main loop
|
DO 'main loop
|
||||||
IF stop_program_state& THEN vw_bypass = -1: EXIT DO
|
IF stop_program_state& THEN vw_bypass = -1: EXIT DO
|
||||||
|
|
Loading…
Reference in a new issue