OpenXM_contrib/gmp/mpz/set_ui.c - diff

Return to set_ui.c CVS log

Up to [local] / OpenXM_contrib / gmp / mpz

version 1.1.1.2, 2000/09/09 14:12:58

version 1.1.1.3, 2003/08/25 16:06:34

Line 1

/* mpz_set_ui(integer, val) -- Assign INTEGER with a small value VAL.

This file is part of the GNU MP Library.

Line 23 MA 02111-1307, USA. */

#include "gmp-impl.h"

void

#if __STDC__

mpz_set_ui (mpz_ptr dest, unsigned long int val)

#else

mpz_set_ui (dest, val)

mpz_ptr dest;

unsigned long int val;

#endif

{

/* We don't check if the allocation is enough, since the rest of the

mp_size_t size;

package ensures it's at least 1, which is what we need here. */

if (val > 0)

dest->_mp_d[0] = val & GMP_NUMB_MASK;

size = val != 0;

#if GMP_NAIL_BITS != 0

if (val > GMP_NUMB_MAX)

{

dest->_mp_d[0] = val;

MPZ_REALLOC (dest, 2);

dest->_mp_size = 1;

dest->_mp_d[1] = val >> GMP_NUMB_BITS;

size = 2;

}

else

#endif

dest->_mp_size = 0;

dest->_mp_size = size;

}