QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Fix watchpoints for fixed-length strings in UDTs.

Browse source
This commit is contained in:
FellippeHeitor 2021-09-28 01:52:16 -03:00
parent 602a32d3ba
commit 765b77c9bb
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -404,7 +404,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize)
_MEMCOPY vw_m, vw_m.OFFSET, vw_m.SIZE TO vw_m2, vw_m2.OFFSET
IF INSTR(vw_varType$, "STRING *") > 0 AND (vw_isArray <> 0 OR vw_element > 0) THEN
IF INSTR(vw_varType$, "STRING *") > 0 AND (vw_isArray <> 0 OR vw_element > 0 OR vw_isUDT <> 0) THEN
'actual data already fetched; nothing else to do
ELSEIF INSTR(vw_varType$, "STRING") > 0 THEN
IF vw_isArray <> 0 OR vw_element > 0 OR vw_isUDT <> 0 THEN

6
source/ide/ide_methods.bas
View file

@ -7312,7 +7312,11 @@ SUB DebugMode
IF INSTR(varType$, "STRING") = 0 THEN
GOSUB findVarSize
ELSE
varSize& = LEN(dummy%&) + LEN(dummy&)
IF INSTR(varType$, " * ") = 0 THEN
varSize& = LEN(dummy%&) + LEN(dummy&)
ELSE
varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8)))
END IF
END IF
cmd$ = cmd$ + MKL$(tempIndex&)