mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +00:00
Fix watching regular fixed-length string variables
This commit is contained in:
parent
765b77c9bb
commit
1d51c41b53
1 changed files with 3 additions and 3 deletions
|
@ -7312,10 +7312,10 @@ SUB DebugMode
|
||||||
IF INSTR(varType$, "STRING") = 0 THEN
|
IF INSTR(varType$, "STRING") = 0 THEN
|
||||||
GOSUB findVarSize
|
GOSUB findVarSize
|
||||||
ELSE
|
ELSE
|
||||||
IF INSTR(varType$, " * ") = 0 THEN
|
IF INSTR(varType$, " * ") > 0 AND (tempIsUDT& <> 0 OR tempIsArray& <> 0) THEN
|
||||||
varSize& = LEN(dummy%&) + LEN(dummy&)
|
|
||||||
ELSE
|
|
||||||
varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8)))
|
varSize& = VAL(_TRIM$(MID$(varType$, INSTR(varType$, "STRING *") + 8)))
|
||||||
|
ELSE
|
||||||
|
varSize& = LEN(dummy%&) + LEN(dummy&)
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue