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/tclDate.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/tclDate.c')
| -rw-r--r-- | generic/tclDate.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c index e077d94..f62fb21 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -2502,17 +2502,17 @@ TclDateerror( { Tcl_Obj* t; if (!infoPtr->messages) { - infoPtr->messages = Tcl_NewObj(); + TclNewObj(infoPtr->messages); } Tcl_AppendToObj(infoPtr->messages, infoPtr->separatrix, -1); Tcl_AppendToObj(infoPtr->messages, s, -1); Tcl_AppendToObj(infoPtr->messages, " (characters ", -1); - t = Tcl_NewIntObj(location->first_column); + TclNewIntObj(t, location->first_column); Tcl_IncrRefCount(t); Tcl_AppendObjToObj(infoPtr->messages, t); Tcl_DecrRefCount(t); Tcl_AppendToObj(infoPtr->messages, "-", -1); - t = Tcl_NewIntObj(location->last_column); + TclNewIntObj(t, location->last_column); Tcl_IncrRefCount(t); Tcl_AppendObjToObj(infoPtr->messages, t); Tcl_DecrRefCount(t); |