QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 15:40:24 +00:00
Code Releases Wiki Activity

Allow for automatic dereference of supplied arguments

Browse source
This commit is contained in:
Luke Ceddia 2021-07-27 19:52:13 +10:00
parent 7e4a5b9799
commit 70d13e0f53
No known key found for this signature in database
GPG key ID: 319344384A0759B0
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -222,21 +222,24 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
CASE "global var"
tempIndex = CVL(LEFT$(value$, 4))
localIndex = CVL(MID$(value$, 5, 4))
address = globalVariables + LEN(address) * localIndex
address = _offset(globalVariables) + LEN(address) * localIndex
$console
_echo "arrelem address=" + hex$(address)
address = _MEMGET(m, address, _OFFSET)
$CONSOLE
address = _MEMGET(m, address, _OFFSET)
_echo "var address=" + hex$(address)
cmd$ = "global var:" + MKL$(tempIndex) + str$(address)
GOSUB SendCommand
CASE "local var"
' tempIndex = CVL(LEFT$(value$, 4))
' localIndex = CVL(MID$(value$, 5, 4))
' dataType$ = MID$(value$, 9)
' address = localVariables + LEN(address) * localIndex
' address = _MEMGET(m, address, _OFFSET)
' GOSUB GetMemData
' _ECHO "Sending local var: " + STR$(tempIndex) + " = " + result$
' cmd$ = "local var:" + MKL$(tempIndex) + result$
' GOSUB SendCommand
tempIndex = CVL(LEFT$(value$, 4))
localIndex = CVL(MID$(value$, 5, 4))
address = _offset(localVariables) + LEN(address) * localIndex
_echo "arrelem address=" + hex$(address)
address = _MEMGET(m, address, _OFFSET)
address = _MEMGET(m, address, _OFFSET)
_echo "var address=" + hex$(address)
cmd$ = "local var:" + MKL$(tempIndex) + str$(address)
GOSUB SendCommand
case "get address"
tempIndex = cvl(left$(value$, 4))
sequence = cvi(mid$(value$, 5, 2))