Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch bug-9dfae3413d Through [17482fa361] Excluding Merge-Ins
This is equivalent to a diff from a9351d85f3 to 17482fa361
|
2025-06-26
| ||
| 09:55 | tclWinPipe.c:3427:12: warning: unused parameter ‘wakeEvent’ [-Wunused-parameter] check-in: aeabc7bc49 user: jan.nijtmans tags: core-9-0-branch | |
| 08:03 | Fix Tcl_LimitGetCommands() signature (int -> Tcl_Size) Closed-Leaf check-in: e5372efeee user: jan.nijtmans tags: bug-9dfae3413d | |
| 07:59 | Fix [9dfae3413d]: interp limit commands still seems to be 32 bits check-in: 17482fa361 user: jan.nijtmans tags: bug-9dfae3413d | |
| 07:35 | [ef7042075c]: tcl::build-info not documented check-in: e6214ce124 user: jan.nijtmans tags: bug-ef7042075c | |
|
2025-06-25
| ||
| 16:41 | Merge 9.0 - Fix [40b1814b93] and [7c2716733a] Window handle use-after-frees. check-in: 54eb90319d user: apnadkarni tags: trunk, main | |
| 16:23 | Fix [7c2716733a] - use after free on Windows pipe handles check-in: a9351d85f3 user: apnadkarni tags: core-9-0-branch | |
| 15:48 | Fix [40b1814b93] - use after free on TSD in Winsock check-in: a36f76eb6b user: apnadkarni tags: core-9-0-branch | |
| 03:29 | Merge 9.0 Closed-Leaf check-in: 120749f8c4 user: apnadkarni tags: bug-7c2716733a | |
Changes to generic/tclInterp.c.
| ︙ | ︙ | |||
4538 4539 4540 4541 4542 4543 4544 |
return TCL_OK;
} else if ((objc-consumedObjc) & 1 /* isOdd(objc-consumedObjc) */) {
Tcl_WrongNumArgs(interp, consumedObjc, objv, "?-option value ...?");
return TCL_ERROR;
} else {
Tcl_Size i, scriptLen = 0, limitLen = 0;
Tcl_Obj *scriptObj = NULL, *granObj = NULL, *limitObj = NULL;
| | > | 4538 4539 4540 4541 4542 4543 4544 4545 4546 4547 4548 4549 4550 4551 4552 4553 |
return TCL_OK;
} else if ((objc-consumedObjc) & 1 /* isOdd(objc-consumedObjc) */) {
Tcl_WrongNumArgs(interp, consumedObjc, objv, "?-option value ...?");
return TCL_ERROR;
} else {
Tcl_Size i, scriptLen = 0, limitLen = 0;
Tcl_Obj *scriptObj = NULL, *granObj = NULL, *limitObj = NULL;
int gran = 0;
Tcl_Size limit = 0;
for (i=consumedObjc ; i<objc ; i+=2) {
if (Tcl_GetIndexFromObj(interp, objv[i], options, "option", 0,
&index) != TCL_OK) {
return TCL_ERROR;
}
switch (index) {
|
| ︙ | ︙ | |||
4569 4570 4571 4572 4573 4574 4575 |
break;
case OPT_VAL:
limitObj = objv[i+1];
(void) TclGetStringFromObj(objv[i+1], &limitLen);
if (limitLen == 0) {
break;
}
| | | 4570 4571 4572 4573 4574 4575 4576 4577 4578 4579 4580 4581 4582 4583 4584 |
break;
case OPT_VAL:
limitObj = objv[i+1];
(void) TclGetStringFromObj(objv[i+1], &limitLen);
if (limitLen == 0) {
break;
}
if (Tcl_GetSizeIntFromObj(interp, objv[i+1], &limit) != TCL_OK) {
return TCL_ERROR;
}
if (limit < 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"command limit value must be at least 0", -1));
Tcl_SetErrorCode(interp, "TCL", "OPERATION", "INTERP",
"BADVALUE", (char *)NULL);
|
| ︙ | ︙ |