diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-16 19:26:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-16 19:26:36 (GMT) |
| commit | 6e58f7f8285772ed1ef416a69f90336845976898 (patch) | |
| tree | 3ba8ddaa09be1335a05e3bef45b0eeb4aaf3e6e8 /generic/tclBinary.c | |
| parent | 901304bbca1724418fb8682d1594703e989589e2 (diff) | |
| download | tcl-6e58f7f8285772ed1ef416a69f90336845976898.zip tcl-6e58f7f8285772ed1ef416a69f90336845976898.tar.gz tcl-6e58f7f8285772ed1ef416a69f90336845976898.tar.bz2 | |
Fix binary/format/string testcase failures on 32-bit platforms. Reported by Harald Oehlmann.
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 f14685a..545ff7d 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -2609,7 +2609,7 @@ BinaryEncode64( { Tcl_Obj *resultObj; unsigned char *data, *limit; - Tcl_Size maxlen = 0; + Tcl_WideInt maxlen = 0; const char *wrapchar = "\n"; Tcl_Size wrapcharlen = 1; int index, purewrap = 1; @@ -2629,7 +2629,7 @@ BinaryEncode64( } switch (index) { case OPT_MAXLEN: - if (TclGetSizeIntFromObj(interp, objv[i + 1], &maxlen) != TCL_OK) { + if (Tcl_GetWideIntFromObj(interp, objv[i + 1], &maxlen) != TCL_OK) { return TCL_ERROR; } if (maxlen < 0) { |