diff options
Diffstat (limited to 'tcl8.6/libtommath/bn_mp_2expt.c')
-rw-r--r-- | tcl8.6/libtommath/bn_mp_2expt.c | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/tcl8.6/libtommath/bn_mp_2expt.c b/tcl8.6/libtommath/bn_mp_2expt.c deleted file mode 100644 index a32572d..0000000 --- a/tcl8.6/libtommath/bn_mp_2expt.c +++ /dev/null @@ -1,44 +0,0 @@ -#include <tommath.h> -#ifdef BN_MP_2EXPT_C -/* LibTomMath, multiple-precision integer library -- Tom St Denis - * - * LibTomMath is a library that provides multiple-precision - * integer arithmetic as well as number theoretic functionality. - * - * The library was designed directly after the MPI library by - * Michael Fromberger but has been written from scratch with - * additional optimizations in place. - * - * The library is free for all purposes without any express - * guarantee it works. - * - * Tom St Denis, tomstdenis@gmail.com, http://math.libtomcrypt.com - */ - -/* computes a = 2**b - * - * Simple algorithm which zeroes the int, grows it then just sets one bit - * as required. - */ -int -mp_2expt (mp_int * a, int b) -{ - int res; - - /* zero a as per default */ - mp_zero (a); - - /* grow a to accomodate the single bit */ - if ((res = mp_grow (a, b / DIGIT_BIT + 1)) != MP_OKAY) { - return res; - } - - /* set the used count of where the bit will go */ - a->used = b / DIGIT_BIT + 1; - - /* put the single bit in its place */ - a->dp[b / DIGIT_BIT] = ((mp_digit)1) << (b % DIGIT_BIT); - - return MP_OKAY; -} -#endif |