kc3-lang/libtommath/mp_2expt.c

• Show log

  Commit

• Hash : 7a68f128
  Author :
  Date : 2019-10-19T16:24:39
  

  Execute move.sh - Rename files from bn_* to match the function names. * git blame <renamed-file> is not affected * git log --follow <renamed-file> can be used to show log across renames

Download

• mp_2expt.c

• #include "tommath_private.h"
  #ifdef MP_2EXPT_C
  /* LibTomMath, multiple-precision integer library -- Tom St Denis */
  /* SPDX-License-Identifier: Unlicense */
  
  /* computes a = 2**b
   *
   * Simple algorithm which zeroes the int, grows it then just sets one bit
   * as required.
   */
  mp_err mp_2expt(mp_int *a, int b)
  {
     mp_err    err;
  
     /* zero a as per default */
     mp_zero(a);
  
     /* grow a to accomodate the single bit */
     if ((err = mp_grow(a, (b / MP_DIGIT_BIT) + 1)) != MP_OKAY) {
        return err;
     }
  
     /* set the used count of where the bit will go */
     a->used = (b / MP_DIGIT_BIT) + 1;
  
     /* put the single bit in its place */
     a->dp[b / MP_DIGIT_BIT] = (mp_digit)1 << (mp_digit)(b % MP_DIGIT_BIT);
  
     return MP_OKAY;
  }
  #endif
  

Download