diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-27 12:13:41 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-27 12:13:41 (GMT) |
commit | 40e5a934ab092fff44bbd0aaa626e49e49309357 (patch) | |
tree | 647637549af9e7ef79a2fed020a4dc18f4ea64af | |
parent | 0c51650ae9c6c9725068ecfd058275d4aa4bb024 (diff) | |
parent | a5ee3631c378f7788e6bc34ff322ea6592419abf (diff) | |
download | tcl-40e5a934ab092fff44bbd0aaa626e49e49309357.zip tcl-40e5a934ab092fff44bbd0aaa626e49e49309357.tar.gz tcl-40e5a934ab092fff44bbd0aaa626e49e49309357.tar.bz2 |
Merge 8.6. Make c++ compile (with g++-11) warning-free
-rw-r--r-- | generic/tclCmdIL.c | 2 | ||||
-rw-r--r-- | generic/tclExecute.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index d3588aa..b9fc84a 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -1241,7 +1241,7 @@ TclInfoFrame( { Interp *iPtr = (Interp *) interp; Tcl_Obj *tmpObj; - Tcl_Obj *lv[20]; /* Keep uptodate when more keys are added to + Tcl_Obj *lv[20] = {NULL}; /* Keep uptodate when more keys are added to * the dict. */ int lc = 0; /* diff --git a/generic/tclExecute.c b/generic/tclExecute.c index debb06e..f9c2954 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5744,7 +5744,7 @@ TEBCresume( { ClientData ptr1, ptr2; int type1, type2; - Tcl_WideInt w1 = 0, w2, wResult; + Tcl_WideInt w1, w2, wResult; case INST_NUM_TYPE: if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) { |