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 watching regular fixed-length string variables

Browse source
This commit is contained in:
FellippeHeitor 2021-09-28 02:19:27 -03:00
parent 765b77c9bb
commit 1d51c41b53
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/ide/ide_methods.bas
View file

@ -7312,10 +7312,10 @@ SUB DebugMode
IF INSTR(varType$, "STRING") = 0 THEN
GOSUB findVarSize
ELSE
IF INSTR(varType$, " * ") = 0 THEN
varSize& = LEN(dummy%&) + LEN(dummy&)
ELSE
IF INSTR(varType$, " * ") > 0 AND (tempIsUDT& <> 0 OR tempIsArray& <> 0) THEN
varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8)))
ELSE
varSize& = LEN(dummy%&) + LEN(dummy&)
END IF
END IF