mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Begins work to fetch array indexes.
This commit is contained in:
parent
e23f7f6905
commit
faf6b2dcdd
1 changed files with 66 additions and 60 deletions
|
@ -7372,7 +7372,6 @@ SUB DebugMode
|
|||
DO WHILE LEN(temp$)
|
||||
tempIndex& = CVL(LEFT$(temp$, 4))
|
||||
temp$ = MID$(temp$, 5)
|
||||
IF usedVariableList(tempIndex&).watch THEN
|
||||
cmd$ = ""
|
||||
IF LEN(usedVariableList(tempIndex&).subfunc) = 0 THEN
|
||||
cmd$ = "global var:"
|
||||
|
@ -7383,7 +7382,6 @@ SUB DebugMode
|
|||
cmd$ = cmd$ + MKL$(tempIndex&) + MKL$(usedVariableList(tempIndex&).localIndex) + usedVariableList(tempIndex&).subfunc
|
||||
GOSUB SendCommand
|
||||
END IF
|
||||
END IF
|
||||
LOOP
|
||||
END IF
|
||||
CASE "global var", "local var"
|
||||
|
@ -7391,6 +7389,9 @@ SUB DebugMode
|
|||
address%& = _CV(_OFFSET, MID$(value$, 5))
|
||||
usedVariableList(tempIndex&).baseAddress = address%&
|
||||
varType$ = usedVariableList(tempIndex&).varType
|
||||
IF usedVariableList(tempIndex&).isarray THEN
|
||||
'TODO
|
||||
ELSE
|
||||
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||
SELECT CASE varType$
|
||||
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%)
|
||||
|
@ -7405,10 +7406,14 @@ SUB DebugMode
|
|||
END SELECT
|
||||
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + _MK$(_OFFSET, address%&)
|
||||
GOSUB SendCommand
|
||||
END IF
|
||||
CASE "address read"
|
||||
tempIndex& = CVL(LEFT$(value$, 4))
|
||||
sequence% = CVI(MID$(value$, 5, 2))
|
||||
recvData$ = MID$(value$, 7)
|
||||
IF usedVariableList(tempIndex&).isarray THEN
|
||||
'TODO
|
||||
ELSE
|
||||
varType$ = usedVariableList(tempIndex&).varType
|
||||
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
|
||||
SELECT CASE varType$
|
||||
|
@ -7445,6 +7450,7 @@ SUB DebugMode
|
|||
END SELECT
|
||||
usedVariableList(tempIndex&).mostRecentValue = recvData$
|
||||
vwatch_string_seq1_done:
|
||||
END IF
|
||||
IF PauseMode THEN GOSUB UpdateDisplay
|
||||
CASE "current sub"
|
||||
currentSub$ = value$
|
||||
|
|
Loading…
Reference in a new issue