diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 23:38:50 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 23:38:50 (GMT) |
commit | bfe8928bed8d82210b9a892f1ea0add32ac7ad59 (patch) | |
tree | b035e4acd3ecf6630f6203802365f1a86c3a6839 /generic/tclScan.c | |
parent | 7bf0253a4354d176c6582cd6f4ed02434e6c4797 (diff) | |
parent | ba490472b58358406e7f04356e4e8a076644d9c6 (diff) | |
download | tcl-bfe8928bed8d82210b9a892f1ea0add32ac7ad59.zip tcl-bfe8928bed8d82210b9a892f1ea0add32ac7ad59.tar.gz tcl-bfe8928bed8d82210b9a892f1ea0add32ac7ad59.tar.bz2 |
Merge 9.0
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 3e9cfae..ee18174 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -993,7 +993,7 @@ Tcl_ScanObjCmd( * Scan a floating point number */ - objPtr = Tcl_NewDoubleObj(0.0); + TclNewDoubleObj(objPtr, 0.0); Tcl_IncrRefCount(objPtr); if (width == 0) { width = ~0; @@ -1090,7 +1090,7 @@ Tcl_ScanObjCmd( if (code == TCL_OK) { if (underflow && (nconversions == 0)) { if (numVars) { - TclNewIndexObj(objPtr, TCL_INDEX_NONE); + TclNewIntObj(objPtr, -1); } else { if (objPtr) { Tcl_SetListObj(objPtr, 0, NULL); |