mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-22 11:25:08 +00:00
Allow for automatic dereference of supplied arguments
This commit is contained in:
parent
7e4a5b9799
commit
70d13e0f53
1 changed files with 14 additions and 11 deletions
|
@ -222,21 +222,24 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
||||||
CASE "global var"
|
CASE "global var"
|
||||||
tempIndex = CVL(LEFT$(value$, 4))
|
tempIndex = CVL(LEFT$(value$, 4))
|
||||||
localIndex = CVL(MID$(value$, 5, 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)
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
$CONSOLE
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
|
_echo "var address=" + hex$(address)
|
||||||
cmd$ = "global var:" + MKL$(tempIndex) + str$(address)
|
cmd$ = "global var:" + MKL$(tempIndex) + str$(address)
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
CASE "local var"
|
CASE "local var"
|
||||||
' tempIndex = CVL(LEFT$(value$, 4))
|
tempIndex = CVL(LEFT$(value$, 4))
|
||||||
' localIndex = CVL(MID$(value$, 5, 4))
|
localIndex = CVL(MID$(value$, 5, 4))
|
||||||
' dataType$ = MID$(value$, 9)
|
address = _offset(localVariables) + LEN(address) * localIndex
|
||||||
' address = localVariables + LEN(address) * localIndex
|
_echo "arrelem address=" + hex$(address)
|
||||||
' address = _MEMGET(m, address, _OFFSET)
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
' GOSUB GetMemData
|
address = _MEMGET(m, address, _OFFSET)
|
||||||
' _ECHO "Sending local var: " + STR$(tempIndex) + " = " + result$
|
_echo "var address=" + hex$(address)
|
||||||
' cmd$ = "local var:" + MKL$(tempIndex) + result$
|
cmd$ = "local var:" + MKL$(tempIndex) + str$(address)
|
||||||
' GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
case "get address"
|
case "get address"
|
||||||
tempIndex = cvl(left$(value$, 4))
|
tempIndex = cvl(left$(value$, 4))
|
||||||
sequence = cvi(mid$(value$, 5, 2))
|
sequence = cvi(mid$(value$, 5, 2))
|
||||||
|
|
Loading…
Reference in a new issue