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

Revert "Use _cv/_mk for passing _offsets"

Browse source 
This reverts commit b8e6d29959.
This commit is contained in:
FellippeHeitor 2021-07-30 14:31:56 -03:00
parent 662afbcd68
commit 3533898bec
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -218,7 +218,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
vw_address = _OFFSET(globalVariables) + LEN(vw_address) * vw_localIndex
vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'first resolve pass
vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'second resolve pass
vw_cmd$ = "global var:" + MKL$(vw_tempIndex) + _MK$(_OFFSET, vw_address)
vw_cmd$ = "global var:" + MKL$(vw_tempIndex) + STR$(vw_address)
GOSUB SendCommand
CASE "local var"
vw_tempIndex = CVL(LEFT$(vw_value$, 4))
@ -228,14 +228,14 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
vw_address = _OFFSET(localVariables) + LEN(vw_address) * vw_localIndex
vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'first resolve pass
vw_address = _MEMGET(vw_m, vw_address, _OFFSET) 'second resolve pass
vw_cmd$ = "local var:" + MKL$(vw_tempIndex) + _MK$(_OFFSET, vw_address)
vw_cmd$ = "local var:" + MKL$(vw_tempIndex) + STR$(vw_address)
GOSUB SendCommand
END IF
CASE "get address"
vw_tempIndex = CVL(LEFT$(vw_value$, 4))
vw_sequence = CVI(MID$(vw_value$, 5, 2))
vw_varSize = CVL(MID$(vw_value$, 7, 4))
vw_address = _CV(_OFFSET, MID$(vw_value$, 11))
vw_address = VAL(MID$(vw_value$, 11))
vw_buf$ = SPACE$(vw_varSize)
vw_m = _MEM(vw_address, vw_varSize)
vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize)