mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 18:00:24 +00:00
Fixes "set address"
This commit is contained in:
parent
cad9e407d8
commit
b49d2e7326
|
@ -7084,8 +7084,9 @@ SUB DebugMode
|
||||||
CASE "STRING"
|
CASE "STRING"
|
||||||
varSize& = usedVariableList(tempIndex&).strLength
|
varSize& = usedVariableList(tempIndex&).strLength
|
||||||
value$ = LEFT$(value$, varSize&)
|
value$ = LEFT$(value$, varSize&)
|
||||||
|
varSize& = LEN(value$)
|
||||||
END SELECT
|
END SELECT
|
||||||
cmd$ = "set address" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
|
cmd$ = "set address:" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
usedVariableList(tempIndex&).mostRecentValue = CHR$(16) + CHR$(4) + "Sent: " + MID$(result$, 5)
|
usedVariableList(tempIndex&).mostRecentValue = CHR$(16) + CHR$(4) + "Sent: " + MID$(result$, 5)
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue