diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 16:04:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-13 16:04:25 (GMT) |
| commit | 0f5a46a96fd9f6be1c2e843b9d7cce83a18716c5 (patch) | |
| tree | 72b86246a8956714336395f14eb2921b887a27db /generic/tclDictObj.c | |
| parent | 85ffaea615ec6d98e247362d60fecef192e26e5f (diff) | |
| parent | 3fc1392c92078e35e6a35efc90ce598c1c2fc192 (diff) | |
| download | tcl-0f5a46a96fd9f6be1c2e843b9d7cce83a18716c5.zip tcl-0f5a46a96fd9f6be1c2e843b9d7cce83a18716c5.tar.gz tcl-0f5a46a96fd9f6be1c2e843b9d7cce83a18716c5.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index 2923ac2..1d0b05e 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -2196,8 +2196,9 @@ DictIncrCmd( if (objc == 4) { code = TclIncrObj(interp, valuePtr, objv[3]); } else { - Tcl_Obj *incrPtr = Tcl_NewIntObj(1); + Tcl_Obj *incrPtr; + TclNewIntObj(incrPtr, 1); Tcl_IncrRefCount(incrPtr); code = TclIncrObj(interp, valuePtr, incrPtr); TclDecrRefCount(incrPtr); |