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

Adds TIMER ON control over the debuggee.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-15 01:13:50 -03:00
parent ea7c90c6c0
commit af454940e4
2 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
internal/c/qbx.cpp
View file

@ -1782,6 +1782,15 @@ ontimer_struct *ontimer=(ontimer_struct*)malloc(sizeof(ontimer_struct));
int32 ontimerthread_lock=0;
void stop_timers() {
ontimerthread_lock = 1;
while (ontimerthread_lock != 2);
}
void start_timers() {
ontimerthread_lock = 0;
}
int32 func__freetimer(){
if (new_error) return 0;
static int32 i;

11
source/utilities/vwatch.bm
View file

@ -7,6 +7,11 @@ SUB vwatch (linenumber AS LONG)
DIM AS LONG i
DIM start!, temp$, cmd$, value$, k&
DECLARE LIBRARY
SUB vwatch_stoptimers ALIAS stop_timers
SUB vwatch_starttimers ALIAS start_timers
END DECLARE
IF bypass THEN EXIT SUB
IF ide = 0 THEN
@ -73,6 +78,7 @@ SUB vwatch (linenumber AS LONG)
EXIT SUB
END IF
vwatch_stoptimers
cmd$ = "line number:"
IF vwatch_breakpoints(linenumber) THEN cmd$ = "breakpoint:"
cmd$ = cmd$ + MKL$(linenumber)
@ -83,20 +89,24 @@ SUB vwatch (linenumber AS LONG)
CASE "run"
pauseMode = 0
stepOver = 0
vwatch_starttimers
EXIT SUB
CASE "step"
pauseMode = -1
stepOver = 0
vwatch_starttimers
EXIT SUB
CASE "step over"
pauseMode = -1
stepOver = -1
startLevel = vwatch_sublevel
vwatch_starttimers
EXIT SUB
CASE "free"
CLOSE #ide
ide = 0
bypass = -1
vwatch_starttimers
EXIT SUB
CASE "set breakpoint"
vwatch_breakpoints(CVL(value$)) = -1
@ -108,6 +118,7 @@ SUB vwatch (linenumber AS LONG)
_LIMIT 100
LOOP
vwatch_starttimers
EXIT SUB
Connect:
start! = TIMER