Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge trunk |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | novem |
| Files: | files | file ages | folders |
| SHA3-256: |
d07114f217abeb3411f69932644a43d5 |
| User & Date: | jan.nijtmans 2019-07-03 10:53:33.172 |
Context
|
2019-07-03
| ||
| 11:15 | Merge trunk check-in: c26f94b084 user: jan.nijtmans tags: novem | |
| 10:53 | Merge trunk check-in: d07114f217 user: jan.nijtmans tags: novem | |
| 10:43 | Merge 2.8 branch. Use TCL_INDEX_NONE as appropriate check-in: 7120359506 user: jan.nijtmans tags: trunk | |
|
2019-07-02
| ||
| 15:40 | Merge trunk check-in: 5dbfaa6b67 user: jan.nijtmans tags: novem | |
Changes
Changes to generic/threadSvListCmd.c.
| ︙ | ︙ | |||
383 384 385 386 387 388 389 |
if (first == TCL_INDEX_NONE) {
first = 0;
}
if (llen && first >= (size_t)llen && strncmp(firstArg, "end", argLen)) {
Tcl_AppendResult(interp, "list doesn't have element ", firstArg, NULL);
goto cmd_err;
}
| | | 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 |
if (first == TCL_INDEX_NONE) {
first = 0;
}
if (llen && first >= (size_t)llen && strncmp(firstArg, "end", argLen)) {
Tcl_AppendResult(interp, "list doesn't have element ", firstArg, NULL);
goto cmd_err;
}
if (last + 1 >= (size_t)llen + 1) {
last = llen - 1;
}
if (first + 1 <= last + 1) {
ndel = last - first + 1;
} else {
ndel = 0;
}
|
| ︙ | ︙ | |||
474 475 476 477 478 479 480 |
ret = Tcl_GetIntForIndex(interp, objv[off+1], llen-1, &last);
if (ret != TCL_OK) {
goto cmd_err;
}
if (first == TCL_INDEX_NONE) {
first = 0;
}
| | | 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 |
ret = Tcl_GetIntForIndex(interp, objv[off+1], llen-1, &last);
if (ret != TCL_OK) {
goto cmd_err;
}
if (first == TCL_INDEX_NONE) {
first = 0;
}
if (last + 1 >= (size_t)llen + 1) {
last = llen - 1;
}
if (first + 1 > last + 1) {
goto cmd_ok;
}
nargs = last - first + 1;
|
| ︙ | ︙ | |||
1003 1004 1005 1006 1007 1008 1009 |
break;
}
/*
* Break the loop after extracting the innermost sublist
*/
| | | 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 |
break;
}
/*
* Break the loop after extracting the innermost sublist
*/
if (i + 1 >= indexCount) {
result = TCL_OK;
break;
}
/*
* Extract the appropriate sublist and chain it onto the linked
* list of Tcl_Obj's whose string reps must be spoilt.
|
| ︙ | ︙ |