QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-02 23:31:21 +00:00
Code Releases Wiki Activity

Fixes bug watching variable-length strings in UDTs.

Browse source
This commit is contained in:
FellippeHeitor 2021-08-24 23:48:22 -03:00
parent 8d479ee8ea
commit 13a9d4e8be
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
internal/support/vwatch/vwatch.bm
View file

@ -314,7 +314,6 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
ELSEIF vw_varType$ = "STRING" THEN
vw_varSize = LEN(vw_dummy%&)
END IF
'this is where we calculate the actual element position in memory
IF vw_arrayelementsize = 0 THEN
vw_address = vw_address + ((vw_arrayIndex - vw_lbound) * vw_varSize)
@ -332,7 +331,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
IF INSTR(vw_varType$, "STRING *") > 0 AND (vw_isarray <> 0 OR vw_elementoffset > 0) THEN
'actual data already fetched; nothing else to do
ELSEIF INSTR(vw_varType$, "STRING") THEN
ELSEIF vw_varType$ = "STRING" THEN
IF vw_isarray <> 0 OR vw_elementoffset > 0 THEN
'First pass
vw_varSize = LEN(vw_dummy%&)

2
source/ide/ide_methods.bas
View file

@ -7412,7 +7412,7 @@ SUB DebugMode
cmd$ = cmd$ + MKL$(tempStorage&)
cmd$ = cmd$ + MKI$(LEN(usedVariableList(tempIndex&).subfunc))
cmd$ = cmd$ + usedVariableList(tempIndex&).subfunc
cmd$ = cmd$ + MKI$(LEN(tempVarType$)) + tempVarType$
cmd$ = cmd$ + MKI$(LEN(varType$)) + varType$
GOSUB SendCommand
ELSE
cmd$ = ""