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

Finishes reverting b8e6d29959

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

6
source/ide/ide_methods.bas
View file

@ -7309,7 +7309,7 @@ SUB DebugMode
END IF
CASE "global var", "local var"
tempIndex& = CVL(LEFT$(value$, 4))
address%& = VAL(MID$(value$, 5))
address%& = _CV(_OFFSET, MID$(value$, 5))
varType$ = usedVariableList(tempIndex&).varType
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
SELECT CASE varType$
@ -7323,7 +7323,7 @@ SUB DebugMode
CASE "_OFFSET", "_UNSIGNED _OFFSET": varSize& = LEN(dummy%&)
CASE "STRING": varSize& = LEN(dummy%&) + LEN(dummy&)
END SELECT
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + STR$(address%&)
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + _MK$(_OFFSET, address%&)
GOSUB SendCommand
CASE "address read"
tempIndex& = CVL(LEFT$(value$, 4))
@ -7355,7 +7355,7 @@ SUB DebugMode
strLength& = CVL(MID$(recvData$, 5))
END IF
address$ = LEFT$(recvData$, LEN(dummy%&)) 'Pointer to data
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(2) + MKL$(strLength&) + STR$(address%&)
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(2) + MKL$(strLength&) + _MK$(_OFFSET, address%&)
GOSUB SendCommand
GOTO vwatch_string_seq1_done
END IF