diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-04 07:49:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-04 07:49:34 (GMT) |
| commit | 05e623cbed345508e0fdd55956cf0dc52c7960ff (patch) | |
| tree | dc754a5fa6d5b21009d8a9f29a589f3c0714ab43 /generic | |
| parent | 0e90b5c0cf5d0cf25ebb0ef40f1e014f675b7b0c (diff) | |
| parent | 7e1bd9ece3354f7d6ebd31804b617de737323856 (diff) | |
| download | tcl-05e623cbed345508e0fdd55956cf0dc52c7960ff.zip tcl-05e623cbed345508e0fdd55956cf0dc52c7960ff.tar.gz tcl-05e623cbed345508e0fdd55956cf0dc52c7960ff.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 a757543..968925d 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) { |