diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-24 17:16:58 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-24 17:16:58 (GMT) |
| commit | 51043c29dbb3bb9538b0e3db5088b8ada1799b7b (patch) | |
| tree | 3801fd769d393a3abee5da4b2c3df38a893bf7ea /generic/tclBinary.c | |
| parent | 553caf0d2c710467bff3d7916f6e2e50e899768f (diff) | |
| download | tcl-51043c29dbb3bb9538b0e3db5088b8ada1799b7b.zip tcl-51043c29dbb3bb9538b0e3db5088b8ada1799b7b.tar.gz tcl-51043c29dbb3bb9538b0e3db5088b8ada1799b7b.tar.bz2 | |
Fix [c719fa8716] - binary encode base64 assertion failure
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index e0bfd46..6f4fb06 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2638,11 +2638,11 @@ BinaryEncode64( { Tcl_Obj *resultObj; unsigned char *data, *limit; - int maxlen = 0; + Tcl_Size maxlen = 0; const char *wrapchar = "\n"; Tcl_Size wrapcharlen = 1; - int i, index, size, outindex = 0, purewrap = 1; - Tcl_Size offset, count = 0; + int index, purewrap = 1; + Tcl_Size i, offset, size, outindex = 0, count = 0; enum { OPT_MAXLEN, OPT_WRAPCHAR }; static const char *const optStrings[] = { "-maxlen", "-wrapchar", NULL }; @@ -2658,7 +2658,7 @@ BinaryEncode64( } switch (index) { case OPT_MAXLEN: - if (Tcl_GetIntFromObj(interp, objv[i + 1], &maxlen) != TCL_OK) { + if (Tcl_GetSizeIntFromObj(interp, objv[i + 1], &maxlen) != TCL_OK) { return TCL_ERROR; } if (maxlen < 0) { |