diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 13:54:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 13:54:06 (GMT) |
| commit | 176431f58481aeaba56e3463648fd85990236de4 (patch) | |
| tree | acd54df49d264cc7ceef526685b300026bcf7ed7 /generic/tclObj.c | |
| parent | ae243c85b7e7b470ea541cce41e76cd2cd7474f6 (diff) | |
| parent | af7fa225c1d0ec592c7af29ead5922f45c1c15fb (diff) | |
| download | tcl-176431f58481aeaba56e3463648fd85990236de4.zip tcl-176431f58481aeaba56e3463648fd85990236de4.tar.gz tcl-176431f58481aeaba56e3463648fd85990236de4.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index efa63dc..f9b5c6b 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -177,12 +177,12 @@ static Tcl_ThreadDataKey pendingObjDataKey; */ #define PACK_BIGNUM(bignum, objPtr) \ - if ((bignum).used > 0x7fff) { \ + if ((bignum).used > 0x7FFF) { \ mp_int *temp = (mp_int *) ckalloc(sizeof(mp_int)); \ *temp = bignum; \ (objPtr)->internalRep.twoPtrValue.ptr1 = temp; \ (objPtr)->internalRep.twoPtrValue.ptr2 = INT2PTR(-1); \ - } else if (((bignum).alloc <= 0x7fff) || (mp_shrink(&(bignum))) == MP_OKAY) { \ + } else if (((bignum).alloc <= 0x7FFF) || (mp_shrink(&(bignum))) == MP_OKAY) { \ (objPtr)->internalRep.twoPtrValue.ptr1 = (void *) (bignum).dp; \ (objPtr)->internalRep.twoPtrValue.ptr2 = INT2PTR( ((bignum).sign << 30) \ | ((bignum).alloc << 15) | ((bignum).used)); \ |