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

Resets internal variable list when compilation starts ($DEBUG).

Browse source
This commit is contained in:
FellippeHeitor 2021-07-23 12:12:03 -03:00
parent d7b912c8a9
commit 53560ec34f
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/qb64.bas
View file

@ -1227,6 +1227,7 @@ opexarray_recompileAttempts = 0
recompile: recompile:
vWatchOn = vWatchDesiredState vWatchOn = vWatchDesiredState
vWatchVariable "", -1 'reset internal variables list
qb64prefix_set = qb64prefix_set_desiredState qb64prefix_set = qb64prefix_set_desiredState
qb64prefix$ = "_" qb64prefix$ = "_"
@ -14219,6 +14220,11 @@ SUB vWatchVariable (this$, action AS _BYTE)
STATIC totalMainModuleVariables AS LONG, mainModuleVariablesList$ STATIC totalMainModuleVariables AS LONG, mainModuleVariablesList$
SELECT CASE action SELECT CASE action
CASE -1 'reset
totalLocalVariables = 0
localVariablesList$ = ""
totalMainModuleVariables = 0
mainModuleVariablesList$ = ""
CASE 0 'add CASE 0 'add
IF INSTR(vWatchVariableExclusions$, "@" + this$ + "@") > 0 OR LEFT$(this$, 12) = "_SUB_VWATCH_" THEN IF INSTR(vWatchVariableExclusions$, "@" + this$ + "@") > 0 OR LEFT$(this$, 12) = "_SUB_VWATCH_" THEN
EXIT SUB EXIT SUB