mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-20 12:45:13 +00:00
Handles STOP as a regular breakpoint in $DEBUG mode.
This commit is contained in:
parent
05d5086682
commit
bfe081b421
|
@ -8855,8 +8855,12 @@ DO
|
||||||
'note: this value is currently ignored but evaluated for checking reasons
|
'note: this value is currently ignored but evaluated for checking reasons
|
||||||
END IF
|
END IF
|
||||||
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
layoutdone = 1: IF LEN(layout$) THEN layout$ = layout$ + sp + l$ ELSE layout$ = l$
|
||||||
PRINT #12, "close_program=1;"
|
IF vWatchOn = 1 AND NoChecks = 0 THEN
|
||||||
PRINT #12, "end();"
|
PRINT #12, "*__LONG_VWATCH_LINENUMBER=-3; SUB_VWATCH((ptrszint*)vwatch_local_vars);"
|
||||||
|
ELSE
|
||||||
|
PRINT #12, "close_program=1;"
|
||||||
|
PRINT #12, "end();"
|
||||||
|
END IF
|
||||||
GOTO finishedline
|
GOTO finishedline
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
|
@ -90,6 +90,11 @@ SUB vwatch (localVariables AS _OFFSET)
|
||||||
IF LEN(vwatch_callstack) THEN vwatch_callstack = vwatch_callstack + CHR$(0)
|
IF LEN(vwatch_callstack) THEN vwatch_callstack = vwatch_callstack + CHR$(0)
|
||||||
vwatch_callstack = vwatch_callstack + vwatch_subname$ + ", line" + STR$(lastLine)
|
vwatch_callstack = vwatch_callstack + vwatch_subname$ + ", line" + STR$(lastLine)
|
||||||
EXIT SUB
|
EXIT SUB
|
||||||
|
ELSEIF vwatch_linenumber = -3 THEN
|
||||||
|
'handle STOP - instead of quitting, pause execution
|
||||||
|
pauseMode = -1
|
||||||
|
stepOver = 0
|
||||||
|
EXIT SUB
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF vwatch_linenumber = lastLine THEN EXIT SUB
|
IF vwatch_linenumber = lastLine THEN EXIT SUB
|
||||||
|
|
Loading…
Reference in a new issue