diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2006-12-01 00:08:10 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2006-12-01 00:08:10 (GMT) |
| commit | b62b2d6ee4170b8d2cff9e546d67cc24e0c782c6 (patch) | |
| tree | 2f22fd1447d75b67bdecc3491f0720d0058a1cff /libtommath/bn_fast_s_mp_mul_high_digs.c | |
| parent | 32dabb168bc76e93bb522c8de30e3023df038a0f (diff) | |
| download | tcl-b62b2d6ee4170b8d2cff9e546d67cc24e0c782c6.zip tcl-b62b2d6ee4170b8d2cff9e546d67cc24e0c782c6.tar.gz tcl-b62b2d6ee4170b8d2cff9e546d67cc24e0c782c6.tar.bz2 | |
Import of libtommath 0.39+
Diffstat (limited to 'libtommath/bn_fast_s_mp_mul_high_digs.c')
| -rw-r--r-- | libtommath/bn_fast_s_mp_mul_high_digs.c | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/libtommath/bn_fast_s_mp_mul_high_digs.c b/libtommath/bn_fast_s_mp_mul_high_digs.c index 7c10ce4..607630a 100644 --- a/libtommath/bn_fast_s_mp_mul_high_digs.c +++ b/libtommath/bn_fast_s_mp_mul_high_digs.c @@ -12,7 +12,7 @@ * The library is free for all purposes without any express * guarantee it works. * - * Tom St Denis, tomstdenis@iahu.ca, http://math.libtomcrypt.org + * Tom St Denis, tomstdenis@gmail.com, http://math.libtomcrypt.com */ /* this is a modified version of fast_s_mul_digs that only produces @@ -70,9 +70,6 @@ int fast_s_mp_mul_high_digs (mp_int * a, mp_int * b, mp_int * c, int digs) _W = _W >> ((mp_word)DIGIT_BIT); } - /* store final carry */ - W[ix] = (mp_digit)(_W & MP_MASK); - /* setup dest */ olduse = c->used; c->used = pa; @@ -81,7 +78,7 @@ int fast_s_mp_mul_high_digs (mp_int * a, mp_int * b, mp_int * c, int digs) register mp_digit *tmpc; tmpc = c->dp + digs; - for (ix = digs; ix <= pa; ix++) { + for (ix = digs; ix < pa; ix++) { /* now extract the previous digit [below the carry] */ *tmpc++ = W[ix]; } @@ -97,5 +94,5 @@ int fast_s_mp_mul_high_digs (mp_int * a, mp_int * b, mp_int * c, int digs) #endif /* $Source: /root/tcl/repos-to-convert/tcl/libtommath/bn_fast_s_mp_mul_high_digs.c,v $ */ -/* $Revision: 1.1.1.3 $ */ -/* $Date: 2005/09/26 16:31:56 $ */ +/* $Revision: 1.1.1.4 $ */ +/* $Date: 2006/12/01 00:08:11 $ */ |