crypto/external/bsd/heimdal/dist/lib/hcrypto/libtommath/bn_mp_shrink.c

   1 /*      $NetBSD: bn_mp_shrink.c,v 1.1.1.2 2014/04/24 12:45:31 pettai Exp $      */
   2
   3 #include <tommath.h>
   4 #ifdef BN_MP_SHRINK_C
   5 /* LibTomMath, multiple-precision integer library -- Tom St Denis
   6  *
   7  * LibTomMath is a library that provides multiple-precision
   8  * integer arithmetic as well as number theoretic functionality.
   9  *
  10  * The library was designed directly after the MPI library by
  11  * Michael Fromberger but has been written from scratch with
  12  * additional optimizations in place.
  13  *
  14  * The library is free for all purposes without any express
  15  * guarantee it works.
  16  *
  17  * Tom St Denis, tomstdenis@gmail.com, http://libtom.org
  18  */
  19
  20 /* shrink a bignum */
  21 int mp_shrink (mp_int * a)
  22 {
  23   mp_digit *tmp;
  24   if (a->alloc != a->used && a->used > 0) {
  25     if ((tmp = OPT_CAST(mp_digit) XREALLOC (a->dp, sizeof (mp_digit) * a->used)) == NULL) {
  26       return MP_MEM;
  27     }
  28     a->dp    = tmp;
  29     a->alloc = a->used;
  30   }
  31   return MP_OKAY;
  32 }
  33 #endif
  34
  35 /* Source: /cvs/libtom/libtommath/bn_mp_shrink.c,v  */
  36 /* Revision: 1.4  */
  37 /* Date: 2006/12/28 01:25:13  */