Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | silence compiler warning |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
dcd61515bead6747f5ad03e2fdd809af |
| User & Date: | dgp 2013-05-22 13:14:18 |
Context
|
2013-05-23
| ||
| 11:39 | merge-mark check-in: e85cd0b5a8 user: jan.nijtmans tags: core-8-5-branch | |
|
2013-05-22
| ||
| 13:34 | silence compiler warning check-in: 13314a4573 user: dgp tags: trunk | |
| 13:14 | silence compiler warning check-in: dcd61515be user: dgp tags: core-8-5-branch | |
| 12:59 | [3613609]: Replace strcasecmp() with UTF-8-aware version. check-in: 8cc7cdfbd6 user: dkf tags: core-8-5-branch | |
Changes
Changes to generic/tclCmdIL.c.
| ︙ | ︙ | |||
3456 3457 3458 3459 3460 3461 3462 |
int
Tcl_LsortObjCmd(
ClientData clientData, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
| | > | 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465 3466 3467 3468 3469 3470 3471 |
int
Tcl_LsortObjCmd(
ClientData clientData, /* Not used. */
Tcl_Interp *interp, /* Current interpreter. */
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
int i, j, index, indices, length, nocase = 0, indexc;
int sortMode = SORTMODE_ASCII;
Tcl_Obj *resultPtr, *cmdPtr, **listObjPtrs, *listObj, *indexPtr;
SortElement *elementArray, *elementPtr;
SortInfo sortInfo; /* Information about this sort that needs to
* be passed to the comparison function. */
static const char *switches[] = {
"-ascii", "-command", "-decreasing", "-dictionary", "-increasing",
"-index", "-indices", "-integer", "-nocase", "-real", "-unique", NULL
|
| ︙ | ︙ |