mpf_const_d.c

   1 /* LibTomFloat, multiple-precision floating-point library
   2  *
   3  * LibTomFloat is a library that provides multiple-precision
   4  * floating-point artihmetic as well as trigonometric functionality.
   5  *
   6  * This library requires the public domain LibTomMath to be installed.
   7  *
   8  * This library is free for all purposes without any express
   9  * gurantee it works
  10  *
  11  * Tom St Denis, tomstdenis@iahu.ca, http://float.libtomcrypt.org
  12  */
  13 #include <tomfloat.h>
  14
  15 int  mpf_const_d(mp_float *a, long d)
  16 {
  17    long x, s;
  18    int err;
  19
  20    if (d < 0) {
  21       x = -d;
  22       s = MP_NEG;
  23    } else {
  24       x = d;
  25       s = MP_ZPOS;
  26    }
  27
  28    if ((err = mp_set_int(&(a->mantissa), x)) != MP_OKAY) {
  29       return err;
  30    }
  31
  32    a->mantissa.sign = s;
  33    a->exp           = 0;
  34    return mpf_normalize(a);
  35 }