Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | unused variable fix |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | core-8-branch |
Files: | files | file ages | folders |
SHA3-256: |
67e1ea39392f27574bbfb1f4bfc84f5d |
User & Date: | dgp 2018-03-14 17:20:53.118 |
Context
2018-03-14
| ||
18:08 | merge 8.6 check-in: 010cc4a688 user: dgp tags: core-8-branch | |
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 | |
15:17 | New routine TclStringReplace() serves as a common implementation for both compiled and direct eval p... check-in: 190272213a user: dgp tags: core-8-branch | |
Changes
Changes to generic/tclCmdMZ.c.
︙ | ︙ | |||
2301 2302 2303 2304 2305 2306 2307 | static int StringRplcCmd( ClientData dummy, /* Not used. */ Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { | < | | 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 | 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; } |
︙ | ︙ |