diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-18 15:50:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-18 15:50:23 (GMT) |
| commit | a55cf1edad4209ab3de602ff4c4a93abb25fce1c (patch) | |
| tree | 48529fff5ad931726fa1c1faf628b327c84c0da4 /generic/tclBinary.c | |
| parent | faa2dd58c7da0145ca7d1fda1bed3d8de3514db0 (diff) | |
| download | tcl-a55cf1edad4209ab3de602ff4c4a93abb25fce1c.zip tcl-a55cf1edad4209ab3de602ff4c4a93abb25fce1c.tar.gz tcl-a55cf1edad4209ab3de602ff4c4a93abb25fce1c.tar.bz2 | |
Allow larger values for "binary encode base64 -maxlen". Add some more testcases
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 3112f02..b6394a4 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2701,7 +2701,7 @@ BinaryEncode64( { Tcl_Obj *resultObj; unsigned char *data, *limit; - int maxlen = 0; + Tcl_WideInt maxlen = 0; const char *wrapchar = "\n"; int wrapcharlen = 1; int offset, i, index, size, outindex = 0, count = 0, purewrap = 1; @@ -2720,7 +2720,7 @@ BinaryEncode64( } switch (index) { case OPT_MAXLEN: - if (Tcl_GetIntFromObj(interp, objv[i + 1], &maxlen) != TCL_OK) { + if (Tcl_GetWideIntFromObj(interp, objv[i + 1], &maxlen) != TCL_OK) { return TCL_ERROR; } if (maxlen < 0) { |