diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-06 20:54:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-02-06 20:54:35 (GMT) |
| commit | 6ce7eb980b9fa656a7790a70bbe801bce96bc6ee (patch) | |
| tree | bded056cd5bac438f522d348a97e41065dff5adb /generic/tclScan.c | |
| parent | 6bd80d67e4ea201ee43965ee6edaa28fe884f406 (diff) | |
| parent | 185cdc39c6ed70ecf07f8427be94091fffc05238 (diff) | |
| download | tcl-6ce7eb980b9fa656a7790a70bbe801bce96bc6ee.zip tcl-6ce7eb980b9fa656a7790a70bbe801bce96bc6ee.tar.gz tcl-6ce7eb980b9fa656a7790a70bbe801bce96bc6ee.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 2544c22..0cd23d8 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -942,7 +942,7 @@ Tcl_ScanObjCmd( (Tcl_WideUInt)wideValue); Tcl_SetStringObj(objPtr, buf, -1); } else { - Tcl_SetWideIntObj(objPtr, wideValue); + TclSetIntObj(objPtr, wideValue); } } else if (!(flags & SCAN_BIG)) { if (TclGetLongFromObj(NULL, objPtr, &value) != TCL_OK) { @@ -956,7 +956,7 @@ Tcl_ScanObjCmd( sprintf(buf, "%lu", value); /* INTL: ISO digit */ Tcl_SetStringObj(objPtr, buf, -1); } else { - Tcl_SetLongObj(objPtr, value); + TclSetIntObj(objPtr, value); } } objs[objIndex++] = objPtr; |