commit | 43f04a36cf4e809a8baa3a895268b527bfd6254c | [log] [tgz] |
---|---|---|
author | Tim Peters <tim.peters@gmail.com> | Sat Jul 08 02:26:47 2000 +0000 |
committer | Tim Peters <tim.peters@gmail.com> | Sat Jul 08 02:26:47 2000 +0000 |
tree | 155b4a1f02ba08b53fcb75f14d8aaba4572bc0bf | |
parent | a90b23c5712ea1a73fcfdac00e9ebbac2956a632 [diff] [blame] |
The tail end of x_sub implicitly assumed that an unsigned short contains 16 bits. Not true on Cray J90.
diff --git a/Objects/longobject.c b/Objects/longobject.c index df69a6d..a28dbaf 100644 --- a/Objects/longobject.c +++ b/Objects/longobject.c
@@ -1048,6 +1048,7 @@ borrow = a->ob_digit[i] - borrow; z->ob_digit[i] = borrow & MASK; borrow >>= SHIFT; + borrow &= 1; /* Keep only one sign bit */ } assert(borrow == 0); if (sign < 0)