QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 12:40:36 +00:00
Code Issues Releases Wiki Activity

Fix $Debug in Windows versions prior to 10

Browse source
This commit is contained in:
FellippeHeitor 2021-10-17 01:51:28 -02:00
parent 56aa5e7e53
commit 45fed463da
1 changed files with 3 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -24,6 +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)
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)
@ -31,12 +32,6 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
FUNCTION call_getbits&& (BYVAL bsize AS _UNSIGNED LONG, array AS _OFFSET, BYVAL index AS _OFFSET)
END DECLARE
$IF WIN THEN
DECLARE CUSTOMTYPE LIBRARY
FUNCTION vwSetForegroundWindow& ALIAS "SetForegroundWindow" (BYVAL hWnd AS _OFFSET)
END DECLARE
$END IF
IF vw_bypass THEN EXIT SUB
vwatch_goto = 0
@ -130,9 +125,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
GOSUB SendCallStack
vw_cmd$ = "error:" + MKL$(vw_lastLine)
GOSUB SendCommand
$IF WIN THEN
vw_i = vwSetForegroundWindow&(vw_ideHwnd)
$END IF
set_foreground_window vw_ideHwnd
EXIT SUB
ELSEIF vwatch_linenumber = -2 THEN
'report a new sub/function has been "entered"
@ -228,9 +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
$IF WIN THEN
vw_i = vwSetForegroundWindow&(vw_ideHwnd)
$END IF
set_foreground_window vw_ideHwnd
DO 'main loop
IF stop_program_state& THEN vw_bypass = -1: EXIT DO