diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 14:23:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 14:23:14 (GMT) |
| commit | 278837f261adb88e6a802f3ebaf63e232c12e77f (patch) | |
| tree | b6a9653503ead5496a456e1301cc2244c8fba4a0 /generic/tclCmdIL.c | |
| parent | d16f803f15be4e185b584faf662863362cfffe5c (diff) | |
| download | tcl-278837f261adb88e6a802f3ebaf63e232c12e77f.zip tcl-278837f261adb88e6a802f3ebaf63e232c12e77f.tar.gz tcl-278837f261adb88e6a802f3ebaf63e232c12e77f.tar.bz2 | |
More usage for TclNewWideIntObjFromSize(), TCL_IO_FAILURE -> TCL_INDEX_NONE where appropriate
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c88b4d2..7bad8b5 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3835,7 +3835,7 @@ Tcl_LsearchObjCmd( } Tcl_SetObjResult(interp, itemPtr); } else { - Tcl_SetObjResult(interp, Tcl_NewWideIntObj(index)); + Tcl_SetObjResult(interp, TclNewWideIntObjFromSize((size_t)index)); } } else if (index < 0) { /* |