mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 23:45:13 +00:00
Fixes crash readding arrays of UDTs to Watch List during execution.
This commit is contained in:
parent
38fe93a6cf
commit
ec295db7f5
|
@ -8168,6 +8168,8 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
IF ok THEN
|
IF ok THEN
|
||||||
longestElementName = 0
|
longestElementName = 0
|
||||||
usedVariableList(varDlgList(y).index).elements = ""
|
usedVariableList(varDlgList(y).index).elements = ""
|
||||||
|
usedVariableList(varDlgList(y).index).elementTypes = ""
|
||||||
|
usedVariableList(varDlgList(y).index).elementOffset = ""
|
||||||
getid usedVariableList(varDlgList(y).index).id
|
getid usedVariableList(varDlgList(y).index).id
|
||||||
IF id.t = 0 THEN
|
IF id.t = 0 THEN
|
||||||
typ = id.arraytype AND 511
|
typ = id.arraytype AND 511
|
||||||
|
@ -8208,6 +8210,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
result = idemessagebox("Error", Error_Message, "#OK")
|
result = idemessagebox("Error", Error_Message, "#OK")
|
||||||
usedVariableList(varDlgList(y).index).watch = 0
|
usedVariableList(varDlgList(y).index).watch = 0
|
||||||
usedVariableList(varDlgList(y).index).elements = ""
|
usedVariableList(varDlgList(y).index).elements = ""
|
||||||
|
usedVariableList(varDlgList(y).index).elementTypes = ""
|
||||||
usedVariableList(varDlgList(y).index).elementOffset = ""
|
usedVariableList(varDlgList(y).index).elementOffset = ""
|
||||||
GOTO unWatch
|
GOTO unWatch
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -8253,6 +8256,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
'shouldn't ever happen
|
'shouldn't ever happen
|
||||||
usedVariableList(varDlgList(y).index).watch = 0
|
usedVariableList(varDlgList(y).index).watch = 0
|
||||||
usedVariableList(varDlgList(y).index).elements = ""
|
usedVariableList(varDlgList(y).index).elements = ""
|
||||||
|
usedVariableList(varDlgList(y).index).elementTypes = ""
|
||||||
usedVariableList(varDlgList(y).index).elementOffset = ""
|
usedVariableList(varDlgList(y).index).elementOffset = ""
|
||||||
result = idemessagebox("Error", "Cannot add full UDT to Watch List", "#OK")
|
result = idemessagebox("Error", "Cannot add full UDT to Watch List", "#OK")
|
||||||
GOTO unWatch
|
GOTO unWatch
|
||||||
|
@ -8386,7 +8390,7 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
|
||||||
thisScope$ = usedVariableList(x).subfunc
|
thisScope$ = usedVariableList(x).subfunc
|
||||||
IF thisScope$ = "" THEN thisScope$ = mainmodule$
|
IF thisScope$ = "" THEN thisScope$ = mainmodule$
|
||||||
item$ = usedVariableList(x).name + usedVariableList(x).varType + thisScope$
|
item$ = usedVariableList(x).name + usedVariableList(x).varType + thisScope$
|
||||||
IF usedVariableList(x).isarray = 0 AND LEN(usedVariableList(x).elements) = 0 AND LEN(usedVariableList(x).storage) = 4 THEN
|
IF IdeDebugMode > 0 AND usedVariableList(x).isarray = 0 AND LEN(usedVariableList(x).elements) = 0 AND LEN(usedVariableList(x).storage) = 4 THEN
|
||||||
'single var
|
'single var
|
||||||
item$ = item$ + vWatchReceivedData$(CVL(usedVariableList(x).storage))
|
item$ = item$ + vWatchReceivedData$(CVL(usedVariableList(x).storage))
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue