Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merge 8.7 |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
86f7de7c987eba07aa4aa7796a03f4a6 |
User & Date: | dgp 2018-03-14 17:21:29.320 |
Context
2018-03-14
| ||
18:09 | merege 8.7 check-in: b4ebf312a7 user: dgp tags: trunk | |
17:21 | merge 8.7 check-in: 86f7de7c98 user: dgp tags: trunk | |
17:20 | unused variable fix check-in: 67e1ea3939 user: dgp tags: core-8-branch | |
16:17 | merge 8.7 check-in: 961ccb69d2 user: dgp tags: trunk | |
Changes
Changes to generic/tclCmdMZ.c.
︙ | ︙ | |||
2299 2300 2301 2302 2303 2304 2305 | static int StringRplcCmd( ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { | < | | 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 | static int StringRplcCmd( ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { int first, last, length, end; if (objc < 4 || objc > 5) { Tcl_WrongNumArgs(interp, 1, objv, "string first last ?string?"); return TCL_ERROR; } length = Tcl_GetCharLength(objv[1]); end = length - 1; if (TclGetIntForIndexM(interp, objv[2], end, &first) != TCL_OK || TclGetIntForIndexM(interp, objv[3], end, &last) != TCL_OK){ return TCL_ERROR; } |
︙ | ︙ |