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

Fixes "set address"

Browse source
This commit is contained in:
FellippeHeitor 2021-08-01 19:15:37 -03:00
parent cad9e407d8
commit b49d2e7326
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
source/ide/ide_methods.bas
View file

@ -7084,8 +7084,9 @@ SUB DebugMode
CASE "STRING"
varSize& = usedVariableList(tempIndex&).strLength
value$ = LEFT$(value$, varSize&)
varSize& = LEN(value$)
END SELECT
cmd$ = "set address" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
cmd$ = "set address:" + MKL$(varSize&) + _MK$(_OFFSET, address%&) + value$
GOSUB SendCommand
usedVariableList(tempIndex&).mostRecentValue = CHR$(16) + CHR$(4) + "Sent: " + MID$(result$, 5)
END IF