comparison libtommath/bn_mp_shrink.c @ 1436:60fc6476e044

Update to libtommath v1.0
author Matt Johnston <matt@ucc.asn.au>
date Sat, 24 Jun 2017 22:37:14 +0800
parents 5ff8218bcee9
children 8bba51a55704
comparison
equal deleted inserted replaced
1435:f849a5ca2efc 1436:60fc6476e044
1 #include <tommath.h> 1 #include <tommath_private.h>
2 #ifdef BN_MP_SHRINK_C 2 #ifdef BN_MP_SHRINK_C
3 /* LibTomMath, multiple-precision integer library -- Tom St Denis 3 /* LibTomMath, multiple-precision integer library -- Tom St Denis
4 * 4 *
5 * LibTomMath is a library that provides multiple-precision 5 * LibTomMath is a library that provides multiple-precision
6 * integer arithmetic as well as number theoretic functionality. 6 * integer arithmetic as well as number theoretic functionality.
10 * additional optimizations in place. 10 * additional optimizations in place.
11 * 11 *
12 * The library is free for all purposes without any express 12 * The library is free for all purposes without any express
13 * guarantee it works. 13 * guarantee it works.
14 * 14 *
15 * Tom St Denis, [email protected], http://math.libtomcrypt.com 15 * Tom St Denis, [email protected], http://libtom.org
16 */ 16 */
17 17
18 /* shrink a bignum */ 18 /* shrink a bignum */
19 int mp_shrink (mp_int * a) 19 int mp_shrink (mp_int * a)
20 { 20 {
21 mp_digit *tmp; 21 mp_digit *tmp;
22 if (a->alloc != a->used && a->used > 0) { 22 int used = 1;
23 if ((tmp = OPT_CAST(mp_digit) XREALLOC (a->dp, sizeof (mp_digit) * a->used)) == NULL) { 23
24 if(a->used > 0) {
25 used = a->used;
26 }
27
28 if (a->alloc != used) {
29 if ((tmp = OPT_CAST(mp_digit) XREALLOC (a->dp, sizeof (mp_digit) * used)) == NULL) {
24 return MP_MEM; 30 return MP_MEM;
25 } 31 }
26 a->dp = tmp; 32 a->dp = tmp;
27 a->alloc = a->used; 33 a->alloc = used;
28 } 34 }
29 return MP_OKAY; 35 return MP_OKAY;
30 } 36 }
31 #endif 37 #endif
32 38
33 /* $Source: /cvs/libtom/libtommath/bn_mp_shrink.c,v $ */ 39 /* $Source$ */
34 /* $Revision: 1.3 $ */ 40 /* $Revision$ */
35 /* $Date: 2006/03/31 14:18:44 $ */ 41 /* $Date$ */