diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:26:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-25 16:26:04 (GMT) |
| commit | 481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a (patch) | |
| tree | 327719a3c06587aa76044ab356e907a37d99accd /generic/tclScan.c | |
| parent | 73116e2c54973fea6efc412b979d78999df3a08a (diff) | |
| parent | b816a585c00c97feca1b4516769ccf2769a58e02 (diff) | |
| download | tcl-481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a.zip tcl-481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a.tar.gz tcl-481aa42029e2a2bb8afd32bcfa3d3f5cea897f6a.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 0a8e9ae..5eafa53 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); |