OpenXM_contrib/gmp/mpf/random2.c - diff

Return to random2.c CVS log

Up to [local] / OpenXM_contrib / gmp / mpf

Diff for /OpenXM_contrib/gmp/mpf/Attic/random2.c between version 1.1.1.2 and 1.1.1.3

version 1.1.1.2, 2000/09/09 14:13:11

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

Line 2

long runs of consecutive ones and zeros in the binary representation.

Intended for testing of other MP routines.

This file is part of the GNU MP Library.

Line 24 MA 02111-1307, USA. */

#include "gmp.h"

#include "gmp-impl.h"

#if defined (__hpux) || defined (__alpha) || defined (__svr4__) || defined (__SVR4)

/* HPUX lacks random(). DEC OSF/1 1.2 random() returns a double. */

long mrand48 ();

static inline long

random ()

{

return mrand48 ();

}

#else

long random ();

#endif

void

#if __STDC__

mpf_random2 (mpf_ptr x, mp_size_t size, mp_exp_t exp)

#else

mpf_random2 (x, size, exp)

mpf_ptr x;

mp_size_t size;

mp_exp_t exp;

#endif

{

mp_size_t asize;

mp_size_t prec = x->_mp_prec;

mp_limb_t elimb;

asize = ABS (size);

if (asize != 0)

Line 59 mpf_random2 (x, size, exp)

Line 42 mpf_random2 (x, size, exp)

}

if (exp != 0)

exp = random () % (2 * exp) - exp;

{

_gmp_rand (&elimb, RANDS, GMP_NUMB_BITS);

exp = elimb % (2 * exp) - exp;

}

x->_mp_exp = asize == 0 ? 0 : exp;

x->_mp_size = size < 0 ? -asize : asize;

}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>