diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-09-18 22:43:08 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-09-18 22:43:08 (GMT) |
| commit | 63660abb4f8bdea4d69bb947b127815223c39a27 (patch) | |
| tree | e262fa0db1009b3addfefd703720dfbd0aeea62d /generic | |
| parent | 3a94aaa6cb69b47612e4f299ef44bbb6d8869827 (diff) | |
| download | tcl-63660abb4f8bdea4d69bb947b127815223c39a27.zip tcl-63660abb4f8bdea4d69bb947b127815223c39a27.tar.gz tcl-63660abb4f8bdea4d69bb947b127815223c39a27.tar.bz2 | |
TEBC: avoid error "unitialized variable" if called in debug mode (or with analysis tools) - objv = NULL, similar to objc = 0 (e. g. calling parser.test, in doYield by INTERP_DEBUG_FRAME)
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index c5f5c0c..f86cb50 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2178,7 +2178,7 @@ TEBCresume( */ Tcl_Obj *objPtr, *valuePtr, *value2Ptr, *part1Ptr, *part2Ptr, *tmpPtr; - Tcl_Obj **objv; + Tcl_Obj **objv = NULL; int objc = 0; int opnd, length, pcAdjustment; Var *varPtr, *arrayPtr; |