diff options
author | dgp <dgp@users.sourceforge.net> | 2021-05-27 15:47:34 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2021-05-27 15:47:34 (GMT) |
commit | e7588a50a864711fd2f052829f86edddc806103e (patch) | |
tree | 6b8fbc734de1c9e5fc1e6ecf92f0f57378a6559c /generic | |
parent | 93434a38a7feb967ea4c367974a80b1e8d8d5607 (diff) | |
parent | 43b5a799ccd9713ae91ec1143fecf22443413f46 (diff) | |
download | tcl-e7588a50a864711fd2f052829f86edddc806103e.zip tcl-e7588a50a864711fd2f052829f86edddc806103e.tar.gz tcl-e7588a50a864711fd2f052829f86edddc806103e.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tcl.h | 2 | ||||
-rw-r--r-- | generic/tclCmdIL.c | 2 | ||||
-rw-r--r-- | generic/tclExecute.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 9391c6e..029a21c 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2136,7 +2136,7 @@ typedef struct Tcl_EncodingType { #if TCL_UTF_MAX > 3 /* * int isn't 100% accurate as it should be a strict 4-byte value - * (perhaps wchar_t). ILP64/SILP64 systems may have troubles. The + * (perhaps int32_t). ILP64/SILP64 systems may have troubles. The * size of this value must be reflected correctly in regcustom.h. */ typedef int Tcl_UniChar; 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) { |