mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 23:45:13 +00:00
Fixes bug watching variable-length strings in UDTs.
This commit is contained in:
parent
8d479ee8ea
commit
13a9d4e8be
|
@ -314,7 +314,6 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
||||||
ELSEIF vw_varType$ = "STRING" THEN
|
ELSEIF vw_varType$ = "STRING" THEN
|
||||||
vw_varSize = LEN(vw_dummy%&)
|
vw_varSize = LEN(vw_dummy%&)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
'this is where we calculate the actual element position in memory
|
'this is where we calculate the actual element position in memory
|
||||||
IF vw_arrayelementsize = 0 THEN
|
IF vw_arrayelementsize = 0 THEN
|
||||||
vw_address = vw_address + ((vw_arrayIndex - vw_lbound) * vw_varSize)
|
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
|
IF INSTR(vw_varType$, "STRING *") > 0 AND (vw_isarray <> 0 OR vw_elementoffset > 0) THEN
|
||||||
'actual data already fetched; nothing else to do
|
'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
|
IF vw_isarray <> 0 OR vw_elementoffset > 0 THEN
|
||||||
'First pass
|
'First pass
|
||||||
vw_varSize = LEN(vw_dummy%&)
|
vw_varSize = LEN(vw_dummy%&)
|
||||||
|
|
|
@ -7412,7 +7412,7 @@ SUB DebugMode
|
||||||
cmd$ = cmd$ + MKL$(tempStorage&)
|
cmd$ = cmd$ + MKL$(tempStorage&)
|
||||||
cmd$ = cmd$ + MKI$(LEN(usedVariableList(tempIndex&).subfunc))
|
cmd$ = cmd$ + MKI$(LEN(usedVariableList(tempIndex&).subfunc))
|
||||||
cmd$ = cmd$ + usedVariableList(tempIndex&).subfunc
|
cmd$ = cmd$ + usedVariableList(tempIndex&).subfunc
|
||||||
cmd$ = cmd$ + MKI$(LEN(tempVarType$)) + tempVarType$
|
cmd$ = cmd$ + MKI$(LEN(varType$)) + varType$
|
||||||
GOSUB SendCommand
|
GOSUB SendCommand
|
||||||
ELSE
|
ELSE
|
||||||
cmd$ = ""
|
cmd$ = ""
|
||||||
|
|
Loading…
Reference in a new issue