mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 01:50:25 +00:00
Fixes watchpoints for strings
This commit is contained in:
parent
ce16f79f04
commit
3be8a806f8
|
@ -406,6 +406,7 @@ SUB vwatch (globalVariables AS _OFFSET, localVariables AS _OFFSET)
|
|||
vw_address = _CV(LONG, LEFT$(vw_buf$, 4)) 'Pointer to data
|
||||
vw_varSize = CVL(MID$(vw_buf$, 5))
|
||||
END IF
|
||||
|
||||
vw_buf$ = SPACE$(vw_varSize)
|
||||
vw_m = _MEM(vw_address, vw_varSize)
|
||||
vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize)
|
||||
|
|
|
@ -7299,7 +7299,11 @@ SUB DebugMode
|
|||
END IF
|
||||
|
||||
temp$ = value$
|
||||
IF INSTR(varType$, "STRING") = 0 THEN
|
||||
GOSUB findVarSize
|
||||
ELSE
|
||||
varSize& = LEN(dummy%&) + LEN(dummy&)
|
||||
END IF
|
||||
|
||||
cmd$ = cmd$ + MKL$(tempIndex&)
|
||||
cmd$ = cmd$ + _MK$(_BYTE, tempIsArray& <> 0)
|
||||
|
@ -8065,7 +8069,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
|||
|
||||
dialogWidth = 6 + maxModuleNameLen + maxVarLen + maxTypeLen
|
||||
IF IdeDebugMode > 0 THEN dialogWidth = dialogWidth + 40 'make room for "= values"
|
||||
IF dialogWidth < 65 THEN dialogWidth = 65
|
||||
IF dialogWidth < 70 THEN dialogWidth = 70
|
||||
IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8
|
||||
|
||||
idepar p, dialogWidth, dialogHeight, "Add Watch - Variable List"
|
||||
|
@ -8485,7 +8489,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
|||
cmd$ = cmd$ + MKL$(tempIsUDT&)
|
||||
cmd$ = cmd$ + MKL$(tempElement&)
|
||||
cmd$ = cmd$ + tempElementOffset$
|
||||
cmd$ = cmd$ + MKL$(varSize&)
|
||||
cmd$ = cmd$ + MKL$(0)
|
||||
cmd$ = cmd$ + MKL$(tempStorage&)
|
||||
cmd$ = cmd$ + MKI$(LEN(usedVariableList(tempIndex&).subfunc))
|
||||
cmd$ = cmd$ + usedVariableList(tempIndex&).subfunc
|
||||
|
|
Loading…
Reference in a new issue