QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Fetch storage slot when setting variables.

Browse source
This commit is contained in:
FellippeHeitor 2021-09-28 00:00:39 -03:00
parent 8079fc3d07
commit aff7199253
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
source/ide/ide_methods.bas
View file

@ -8265,7 +8265,23 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
'scope is valid (or we're setting a watchpoint)
tempArrayIndex& = 0
tempArrayIndexes$ = MKL$(0)
tempStorage& = 0
IF LEN(usedVariableList(tempIndex&).storage) = 4 THEN
tempStorage& = CVL(usedVariableList(tempIndex&).storage)
ELSEIF LEN(usedVariableList(tempIndex&).storage) > 4 THEN
i = 4
DO
i = INSTR(i + 1, variableWatchList$, MKL$(-1) + MKL$(tempIndex&) + tempArrayIndexes$)
IF i = 0 THEN EXIT DO
IF MID$(variableWatchList$, i + 8 + LEN(tempArrayIndexes$), 4) = tempElementOffset$ THEN
'we found where this element's value is being stored
tempStorage& = CVL(MID$(variableWatchList$, i + 16 + LEN(tempArrayIndexes$), 4))
EXIT DO
END IF
LOOP
END IF
tempIsUDT& = 0
tempElementOffset$ = MKL$(0)
IF usedVariableList(tempIndex&).isarray THEN