projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8f5433e
)
Fix thinko in previous change.
author
Chris Hanson
<org/chris-hanson/cph>
Thu, 24 Sep 2009 07:14:20 +0000
(
00:14
-0700)
committer
Chris Hanson
<org/chris-hanson/cph>
Thu, 24 Sep 2009 07:14:20 +0000
(
00:14
-0700)
src/microcode/bignum.c
patch
|
blob
|
history
diff --git
a/src/microcode/bignum.c
b/src/microcode/bignum.c
index ad8e3e05202995f6eb41cc99a33a2d24656cebed..26b5b7c9bfa1accee1984171411b904e7bbdc519 100644
(file)
--- a/
src/microcode/bignum.c
+++ b/
src/microcode/bignum.c
@@
-742,13
+742,13
@@
bignum_fits_in_word_p (bignum_type bignum, long word_length,
unsigned int n_bits;
if (twos_complement_p)
+ n_bits = (word_length - 1);
+ else
{
if (BIGNUM_NEGATIVE_P (bignum))
return (0);
- n_bits =
(word_length - 1)
;
+ n_bits =
word_length
;
}
- else
- n_bits = word_length;
BIGNUM_ASSERT (n_bits > 0);
{