diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-02-14 15:33:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-02-14 15:33:29 (GMT) |
| commit | c64afc94f19ab3121ef1d91844dc902c721a5ff2 (patch) | |
| tree | 96421f1b4bafd536de46eeb151857b905e2cc6ae /generic/tclScan.c | |
| parent | 4f918b61b0cdd470824ce7a6198b89e8b6b90ca0 (diff) | |
| parent | 55898c44b95ad321d7caa6b38bd94fb955c01d89 (diff) | |
| download | tcl-c64afc94f19ab3121ef1d91844dc902c721a5ff2.zip tcl-c64afc94f19ab3121ef1d91844dc902c721a5ff2.tar.gz tcl-c64afc94f19ab3121ef1d91844dc902c721a5ff2.tar.bz2 | |
merge 8.7
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 4d3afd0..25c6c2b 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -936,7 +936,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 (flags & SCAN_UNSIGNED) { @@ -961,7 +961,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; |