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 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 set_foreground_window (BYVAL hwnd AS _OFFSET)
|
||||
SUB set_fg ALIAS set_foreground_window (BYVAL hwnd AS _OFFSET)
|
||||
FUNCTION stop_program_state&
|
||||
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)
|
||||
|
@ -125,7 +125,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
|||
GOSUB SendCallStack
|
||||
vw_cmd$ = "error:" + MKL$(vw_lastLine)
|
||||
GOSUB SendCommand
|
||||
set_foreground_window vw_ideHwnd
|
||||
set_fg vw_ideHwnd
|
||||
EXIT SUB
|
||||
ELSEIF vwatch_linenumber = -2 THEN
|
||||
'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)
|
||||
GOSUB SendCommand
|
||||
|
||||
set_foreground_window vw_ideHwnd
|
||||
set_fg vw_ideHwnd
|
||||
|
||||
DO 'main loop
|
||||
IF stop_program_state& THEN vw_bypass = -1: EXIT DO
|
||||
|
|
Loading…
Reference in a new issue