diff options
author | dgp <dgp@users.sourceforge.net> | 2018-02-06 17:26:40 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-02-06 17:26:40 (GMT) |
commit | 25fcbf685dbd09f24d7d45c8c6b90ed3c33eab17 (patch) | |
tree | 83acb4c3bbd06ea9553411522d4a1d7ab66553a0 /generic/tclCmdMZ.c | |
parent | ca5e7c5b63ce1355c653763e82f8e75f7a38d333 (diff) | |
download | tcl-25fcbf685dbd09f24d7d45c8c6b90ed3c33eab17.zip tcl-25fcbf685dbd09f24d7d45c8c6b90ed3c33eab17.tar.gz tcl-25fcbf685dbd09f24d7d45c8c6b90ed3c33eab17.tar.bz2 |
Rename TclStringFind to TclStringFirst. Repair its operations on bytearrays.
Stop trying to operate on utf-8 until we nail that down better.
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index f9e404b..5d49d2a 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1335,16 +1335,8 @@ StringFirstCmd( if (TCL_OK != TclGetIntForIndexM(interp, objv[3], size - 1, &start)) { return TCL_ERROR; } - - if (start < 0) { - start = 0; - } - if (start >= size) { - Tcl_SetObjResult(interp, Tcl_NewIntObj(-1)); - return TCL_OK; - } } - Tcl_SetObjResult(interp, Tcl_NewIntObj(TclStringFind(objv[1], + Tcl_SetObjResult(interp, Tcl_NewIntObj(TclStringFirst(objv[1], objv[2], start))); return TCL_OK; } |