diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-22 21:36:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-22 21:36:21 (GMT) |
| commit | 8726aabaded70c01ab3fac21162ce53b220b81ea (patch) | |
| tree | 47b050309f5ad0865f97743d42ff1ebb570deb96 /generic/tclLink.c | |
| parent | d14ab3904746a34a3916f45e037b6df3ecff10fa (diff) | |
| parent | 566db2779b71036ff40e31affc73126c2a090773 (diff) | |
| download | tcl-8726aabaded70c01ab3fac21162ce53b220b81ea.zip tcl-8726aabaded70c01ab3fac21162ce53b220b81ea.tar.gz tcl-8726aabaded70c01ab3fac21162ce53b220b81ea.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 67f1ec9..73eee2d 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 |