kc3-lang/libtommath/mp_get_double.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_get_double.c

• #include "tommath_private.h"
  #ifdef MP_GET_DOUBLE_C
  /* LibTomMath, multiple-precision integer library -- Tom St Denis */
  /* SPDX-License-Identifier: Unlicense */
  
  double mp_get_double(const mp_int *a)
  {
     int i;
     double d = 0.0, fac = 1.0;
     for (i = 0; i < MP_DIGIT_BIT; ++i) {
        fac *= 2.0;
     }
     for (i = a->used; i --> 0;) {
        d = (d * fac) + (double)a->dp[i];
     }
     return (a->sign == MP_NEG) ? -d : d;
  }
  #endif
  

Download