mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 21:25:14 +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_address = _CV(LONG, LEFT$(vw_buf$, 4)) 'Pointer to data
|
||||||
vw_varSize = CVL(MID$(vw_buf$, 5))
|
vw_varSize = CVL(MID$(vw_buf$, 5))
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
vw_buf$ = SPACE$(vw_varSize)
|
vw_buf$ = SPACE$(vw_varSize)
|
||||||
vw_m = _MEM(vw_address, vw_varSize)
|
vw_m = _MEM(vw_address, vw_varSize)
|
||||||
vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize)
|
vw_m2 = _MEM(_OFFSET(vw_buf$), vw_varSize)
|
||||||
|
|
|
@ -7299,7 +7299,11 @@ SUB DebugMode
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
temp$ = value$
|
temp$ = value$
|
||||||
|
IF INSTR(varType$, "STRING") = 0 THEN
|
||||||
GOSUB findVarSize
|
GOSUB findVarSize
|
||||||
|
ELSE
|
||||||
|
varSize& = LEN(dummy%&) + LEN(dummy&)
|
||||||
|
END IF
|
||||||
|
|
||||||
cmd$ = cmd$ + MKL$(tempIndex&)
|
cmd$ = cmd$ + MKL$(tempIndex&)
|
||||||
cmd$ = cmd$ + _MK$(_BYTE, tempIsArray& <> 0)
|
cmd$ = cmd$ + _MK$(_BYTE, tempIsArray& <> 0)
|
||||||
|
@ -8065,7 +8069,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
|
|
||||||
dialogWidth = 6 + maxModuleNameLen + maxVarLen + maxTypeLen
|
dialogWidth = 6 + maxModuleNameLen + maxVarLen + maxTypeLen
|
||||||
IF IdeDebugMode > 0 THEN dialogWidth = dialogWidth + 40 'make room for "= values"
|
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
|
IF dialogWidth > idewx - 8 THEN dialogWidth = idewx - 8
|
||||||
|
|
||||||
idepar p, dialogWidth, dialogHeight, "Add Watch - Variable List"
|
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$(tempIsUDT&)
|
||||||
cmd$ = cmd$ + MKL$(tempElement&)
|
cmd$ = cmd$ + MKL$(tempElement&)
|
||||||
cmd$ = cmd$ + tempElementOffset$
|
cmd$ = cmd$ + tempElementOffset$
|
||||||
cmd$ = cmd$ + MKL$(varSize&)
|
cmd$ = cmd$ + MKL$(0)
|
||||||
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
|
||||||
|
|
Loading…
Reference in a new issue