OpenXM_contrib/gmp/mpz/iset_ui.c - diff

Return to iset_ui.c CVS log

Up to [local] / OpenXM_contrib / gmp / mpz

-version 1.1.1.2, 2000/09/09 14:12:54
+version 1.1.1.3, 2003/08/25 16:06:33
 Line 1
 Line 1
 Line 1
- /* mpz_init_set_ui(val) -- Make a new multiple precision number with
+ /* mpz_init_set_ui(dest,val) -- Make a new multiple precision in DEST and
-    value val.
+    assign VAL to the new number.
- Copyright (C) 1991, 1993, 1994, 1995 Free Software Foundation, Inc.
+ Copyright 1991, 1993, 1994, 1995, 2000, 2001, 2002 Free Software Foundation,
+ Inc.
  This file is part of the GNU MP Library.
-Line 24  MA 02111-1307, USA. */
+Line 25  MA 02111-1307, USA. */
 Line 24  MA 02111-1307, USA. */
 Line 25  MA 02111-1307, USA. */
  #include "gmp-impl.h"
  void
- #if __STDC__
+ mpz_init_set_ui (mpz_ptr dest, unsigned long int val)
- mpz_init_set_ui (mpz_ptr x, unsigned long int val)
- #else
- mpz_init_set_ui (x, val)
-      mpz_ptr x;
-      unsigned long int val;
- #endif
  {
-   x->_mp_alloc = 1;
+   mp_size_t size;
-   x->_mp_d = (mp_ptr) (*_mp_allocate_func) (BYTES_PER_MP_LIMB);
-   x->_mp_d[0] = val;
+   dest->_mp_alloc = 1;
-   x->_mp_size = val != 0;
+   dest->_mp_d = (mp_ptr) (*__gmp_allocate_func) (BYTES_PER_MP_LIMB);
+   dest->_mp_d[0] = val & GMP_NUMB_MASK;
+   size = val != 0;
+ #if GMP_NAIL_BITS != 0
+   if (val > GMP_NUMB_MAX)
+     {
+       MPZ_REALLOC (dest, 2);
+       dest->_mp_d[1] = val >> GMP_NUMB_BITS;
+       size = 2;
+     }
+ #endif
+   dest->_mp_size = size;
  }