Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | merge trunk |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | novem |
Files: | files | file ages | folders |
SHA1: |
ef483313f115bb500212e4b3b9960af7 |
User & Date: | jan.nijtmans 2013-09-26 14:28:50 |
Context
2013-09-27
| ||
17:39 | merge trunk check-in: f55df9a649 user: jan.nijtmans tags: novem | |
2013-09-26
| ||
14:49 | merge novem check-in: 681068bb9c user: dkf tags: novem-64bit-sizes | |
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
| ||
20:04 | merge trunk check-in: 6ec1685ef4 user: jan.nijtmans tags: novem | |
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); |
︙ | ︙ |