diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 15:34:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 15:34:30 (GMT) |
| commit | 25eedf811a9b5f1da159a902f286f481fe4ff8d2 (patch) | |
| tree | 654de06478dfc9fc6f73359ef1fcdb80ef6b04ba /generic/tclLink.c | |
| parent | f73034b8e3d67ad9eeb12d06976588e3fbac24b5 (diff) | |
| parent | 846e8f4c800a926b96d55217a217e1f27a7ce3c0 (diff) | |
| download | tcl-25eedf811a9b5f1da159a902f286f481fe4ff8d2.zip tcl-25eedf811a9b5f1da159a902f286f481fe4ff8d2.tar.gz tcl-25eedf811a9b5f1da159a902f286f481fe4ff8d2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index 1d4dadc..dfe178c 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -533,11 +533,11 @@ GetUWide( Tcl_WideUInt value; unsigned char bytes[sizeof(Tcl_WideUInt)]; } scratch; - unsigned long numBytes = sizeof(Tcl_WideUInt); + size_t numBytes; unsigned char *bytes = scratch.bytes; - if (numPtr->sign || (MP_OKAY != mp_to_unsigned_bin_n(numPtr, - bytes, &numBytes))) { + if (numPtr->sign || (MP_OKAY != mp_to_ubin(numPtr, + bytes, sizeof(Tcl_WideUInt), &numBytes))) { /* * If the sign bit is set (a negative value) or if the value * can't possibly fit in the bits of an unsigned wide, there's |