Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Tcl_SetResult -> Tcl_SetObjResult |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
15647dce75d16bb780ca15238d182fa3 |
| User & Date: | jan.nijtmans 2013-09-26 14:27:37 |
Context
|
2013-09-27
| ||
| 09:18 | Workaround for MinGW bug #2065. Both MinGW and MinGW-w6... check-in: 87d1313df3 user: jan.nijtmans tags: trunk | |
|
2013-09-26
| ||
| 16:32 | merge trunk check-in: 4052e55925 user: dkf tags: dkf-improved-disassembler | |
| 14:28 | merge trunk check-in: ef483313f1 user: jan.nijtmans tags: novem | |
| 14:27 | Tcl_SetResult -> Tcl_SetObjResult check-in: 15647dce75 user: jan.nijtmans tags: trunk | |
|
2013-09-23
| ||
| 12:18 | revert mistaken commit of experiment check-in: 3b340542f2 user: dgp tags: trunk | |
Changes
Changes to generic/tclBinary.c.
| ︙ | ︙ | |||
2496 2497 2498 2499 2500 2501 2502 |
}
switch (index) {
case OPT_MAXLEN:
if (Tcl_GetIntFromObj(interp, objv[i+1], &maxlen) != TCL_OK) {
return TCL_ERROR;
}
if (maxlen < 0) {
| > | | 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 |
}
switch (index) {
case OPT_MAXLEN:
if (Tcl_GetIntFromObj(interp, objv[i+1], &maxlen) != TCL_OK) {
return TCL_ERROR;
}
if (maxlen < 0) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"line length out of range", -1));
Tcl_SetErrorCode(interp, "TCL", "BINARY", "ENCODE",
"LINE_LENGTH", NULL);
return TCL_ERROR;
}
break;
case OPT_WRAPCHAR:
wrapchar = Tcl_GetStringFromObj(objv[i+1], &wrapcharlen);
|
| ︙ | ︙ | |||
2602 2603 2604 2605 2606 2607 2608 |
}
switch (index) {
case OPT_MAXLEN:
if (Tcl_GetIntFromObj(interp, objv[i+1], &lineLength) != TCL_OK) {
return TCL_ERROR;
}
if (lineLength < 3 || lineLength > 85) {
| > | | 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 |
}
switch (index) {
case OPT_MAXLEN:
if (Tcl_GetIntFromObj(interp, objv[i+1], &lineLength) != TCL_OK) {
return TCL_ERROR;
}
if (lineLength < 3 || lineLength > 85) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"line length out of range", -1));
Tcl_SetErrorCode(interp, "TCL", "BINARY", "ENCODE",
"LINE_LENGTH", NULL);
return TCL_ERROR;
}
break;
case OPT_WRAPCHAR:
wrapchar = Tcl_GetByteArrayFromObj(objv[i+1], &wrapcharlen);
|
| ︙ | ︙ |