QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-16 10:45:14 +00:00
Code Releases Wiki Activity

Begins work to fetch array indexes.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-05 01:56:19 -03:00
parent e23f7f6905
commit faf6b2dcdd
1 changed files with 66 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -7372,7 +7372,6 @@ SUB DebugMode
DO WHILE LEN(temp$) DO WHILE LEN(temp$)
tempIndex& = CVL(LEFT$(temp$, 4)) tempIndex& = CVL(LEFT$(temp$, 4))
temp$ = MID$(temp$, 5) temp$ = MID$(temp$, 5)
IF usedVariableList(tempIndex&).watch THEN
cmd$ = "" cmd$ = ""
IF LEN(usedVariableList(tempIndex&).subfunc) = 0 THEN IF LEN(usedVariableList(tempIndex&).subfunc) = 0 THEN
cmd$ = "global var:" cmd$ = "global var:"
@ -7383,7 +7382,6 @@ SUB DebugMode
cmd$ = cmd$ + MKL$(tempIndex&) + MKL$(usedVariableList(tempIndex&).localIndex) + usedVariableList(tempIndex&).subfunc cmd$ = cmd$ + MKL$(tempIndex&) + MKL$(usedVariableList(tempIndex&).localIndex) + usedVariableList(tempIndex&).subfunc
GOSUB SendCommand GOSUB SendCommand
END IF END IF
END IF
LOOP LOOP
END IF END IF
CASE "global var", "local var" CASE "global var", "local var"
@ -7391,6 +7389,9 @@ SUB DebugMode
address%& = _CV(_OFFSET, MID$(value$, 5)) address%& = _CV(_OFFSET, MID$(value$, 5))
usedVariableList(tempIndex&).baseAddress = address%& usedVariableList(tempIndex&).baseAddress = address%&
varType$ = usedVariableList(tempIndex&).varType varType$ = usedVariableList(tempIndex&).varType
IF usedVariableList(tempIndex&).isarray THEN
'TODO
ELSE
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
SELECT CASE varType$ SELECT CASE varType$
CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%) CASE "_BYTE", "_UNSIGNED _BYTE", "BYTE", "UNSIGNED BYTE": varSize& = LEN(dummy%%)
@ -7405,10 +7406,14 @@ SUB DebugMode
END SELECT END SELECT
cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + _MK$(_OFFSET, address%&) cmd$ = "get address:" + MKL$(tempIndex&) + MKI$(1) + MKL$(varSize&) + _MK$(_OFFSET, address%&)
GOSUB SendCommand GOSUB SendCommand
END IF
CASE "address read" CASE "address read"
tempIndex& = CVL(LEFT$(value$, 4)) tempIndex& = CVL(LEFT$(value$, 4))
sequence% = CVI(MID$(value$, 5, 2)) sequence% = CVI(MID$(value$, 5, 2))
recvData$ = MID$(value$, 7) recvData$ = MID$(value$, 7)
IF usedVariableList(tempIndex&).isarray THEN
'TODO
ELSE
varType$ = usedVariableList(tempIndex&).varType varType$ = usedVariableList(tempIndex&).varType
IF INSTR(varType$, "STRING *") THEN varType$ = "STRING" IF INSTR(varType$, "STRING *") THEN varType$ = "STRING"
SELECT CASE varType$ SELECT CASE varType$
@ -7445,6 +7450,7 @@ SUB DebugMode
END SELECT END SELECT
usedVariableList(tempIndex&).mostRecentValue = recvData$ usedVariableList(tempIndex&).mostRecentValue = recvData$
vwatch_string_seq1_done: vwatch_string_seq1_done:
END IF
IF PauseMode THEN GOSUB UpdateDisplay IF PauseMode THEN GOSUB UpdateDisplay
CASE "current sub" CASE "current sub"
currentSub$ = value$ currentSub$ = value$